Вводится число n, найдите все его делители. паскаль

Question

Вводится число n, найдите все его делители. паскаль

Answer 1

Var
n,i:integer;
Begin
Write('n = ');ReadLn(n);
For i:= 1 to n do
    if n mod i = 0 then Write(i,' ')
End.