Как найти все числа, на которые делится число 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.