Паскаль
var a,i:integer;
begin
readln(a);
writeln;
for i:=1 to a do
if (a mod i=0) then writeln (i);
end.
Паскаль
var a,i:integer;
begin
readln(a);
writeln;
for i:=1 to a do
if (a mod i=0) then writeln (i);
end.