Найти все делители натурального числа n

Question

Найти все делители натурального числа n

Answer 1

Uses crt;
var n,i:integer;
begin
readln(n);
for i:=1 to (n div 2) do
if n mod i=0 then writeln(i);
writeln(n);
end.

Comments

как этим пользоваться?