Question

найти все делители натурального числа N

Answer 1

program aaa;
  var d, n : integer;
begin
 write ('введите число N-');
 readln (n);
 writeln('Делители числа: ');
 for d :=1 to n do
  if n mod d = 0 then writeln (d)
end.