Написать программу, которая находит все делители введенного числа N. паскаль

program zz1;

var n, i:integer; / / задаем переменные целого типа

begin

write (' введите число n '); / / вводим с клавиатуры заданное число

read (n);

write (' Делители числа ', n, ': ');

for i:=1 to n do / / организуем цикл, в котором переберем все числа от 1 до n

begin

if n mod i = 0 / / проверяем число на делимость, если заданное число делится без остатка, то

then write (i, ' '); / / выводим делитель на экран

end;

end.