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.

Answer 2

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