Пример. Вывод всех делителей натурального числа A

var a,n,c,d:word;

begin { основная программа }
 readln(a);
 n:=1;
 while ( n <= sqrt(a) ) do begin
   c:=a mod n;
   d:=a div n;
   if c = 0 then begin
     writeln( n );
     if n <> d then writeln( d );
   end;
   inc(n);
 end;
end.

---