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

Вопрос от посетителя:

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

Илюха отвечает:

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.