Найти все делители для заданного числа n. Паскаль

program zz1;

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

begin

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

read (n);

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

begin

if n mod i = 0 / / проверяем, если число n делится на число i, то считаем его и выводим ответ

then begin k:=k+1; writeln (k,'-ый делитель числа = ', i); end;

end;

end.