Найти 10 первых натуральных чисел,оканчивающихся на цифру 7,кратных числу 9 и больших 100 — Pascal(Паскаль)

var
 i,count:integer;
begin
 i:= 100;
 while count <> 10 do begin
 if (i mod 9 = 0) and (i mod 10 = 7) then begin
   inc(count);
   writeln(i);
 end;
 inc(i);
 end;
end.

uses
  Crt;
var
  i: integer;
begin
  ClrScr;
  for i := 101 to 100 do
    if (i mod 10 = 7) and (i mod 9 = 0) then
      WriteLn(i);
  ReadLn;
end.

uses
  Crt;
var
  i,c: integer;
begin
  ClrScr;
  c := 0;
  i := 100;
  repeat
    Inc(i);
    if (i mod 10 = 7) and (i mod 9 = 0) then
    begin
      Inc(c);
      Write(i, ' ');
    end;
  until
    c = 10;
  ReadLn;
end.

uses crt;
const n=7;
var a:array[1..999] of integer;
i:integer;
begin
clrscr;
writeln(' Vce chicla:');
for i:=100 to 999 do 
begin
if ((i mod 9)=0) and ((i mod 10)=n) then
begin
a[i]:=a[i]+i;
write(' ',a[i]:3);
end;
end;
readkey;
end.