найти все делители натурального числа 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.