Программа нахождения всех делителей натурального числа:
{ Составить программу печати всех делителей натурального числа A }
var a, n, c, d : word;
begin
write('Введите натуральное число:');
readln(a);
writeln('Делители числа ', 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.
