{ Составить программу печати всех делителей натурального числа A }
var a,n,c,d:word;
begin { основная программа }
readln( a );
n:=1;
while ( n <= sqrt(a) ) do begin
c:=a mod n;
d:=a div n;
if c = 0 then begin
writeln( n );
if n <> d then writeln( d );
end;
inc( n );
end;
end.
Красноярский краевой Дворец пионеров, (c)2006 - 2021, E-mail: admin@acmp.ru