Ацетатик Program znanija3;
var i, number:integer;
begin
   number:=0;
   while i <> 10 do begin
     Inc(number);
     if (number mod 10) = 7 then begin
       writeln(number);
       Inc(i);
     end;
   end;
end.


P.S. Inc(number) = number:= number+1