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

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.