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

Question

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

---

Answer 1

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

Comments

Не правильно

---

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

---

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