Найти все числа, которые делятся на N среди

а) всех двузначных чисел;

б) всех трёхзначных чисел

а) Program a;

uses crt;

var

i, n:integer;

begin

Writeln ('Введите n') ;

Read (n) ;

For i:=10 to 99 do

begin

if i mod n=0 then

Write (i,' ') ;

end;

end.

б) Program b;

uses crt;

var

i, n:integer;

begin

Writeln ('Введите n') ;

Read (n) ;

For i:=100 to 999 do

begin

if i mod n=0 then

Write (i,' ') ;

end;

end.