Question

Помогите написать программу на Паскале :

Answer 1

var i,n:longint;
begin
readln(n);
i:=1;
while i < n do
begin
if n mod i=0 then
writeln(i);
i:=i+1;  
end;
end.

Answer 2

Не правильно

Answer 3

я решил не так удали мой ответ

Answer 4

это не даёт простых делителей