Найти 10 первых натуральных чисел, оканчивающихся на цифру 7 кратных числу 9 и находящихся в интервале левая граница которого равна 100 по !

117, 207, 297, 387, 477, 567, 657, 747, 837, 927 моя первая программа на паскале (у меня работает правильно) program myhelloworld(output); var i, v : integer; begin v: =99;       for i : = 1 to 10 do begin               while true do begin                       inc(v);                       if ((v - 7) mod 10 = 0) and (v mod 9 = 0) then begin                               writeln(v);                               break;                       end;               end;       end end.

пусть введенный интервал будет

b и c,где b< c

var a,b,c,i: longint;

begin

    read(b,c);

    for i: =b to c do

            if i mod a=0 then write(i);

end.