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