1)
var a: array[1..900] of integer; i,n: integer;begin n:=99; for i:=1 to 900 do begin inc(n); a[i]:=n; if a[i] mod 7 <>0 then write(a[i]:4); end;end.
1)
var
a: array[1..900] of integer;
i,n: integer;
begin
n:=99;
for i:=1 to 900 do
begin
inc(n);
a[i]:=n;
if a[i] mod 7 <>0 then write(a[i]:4);
end;
end.