var a:array[1..1000] of longint; m,x,i,n:longint; begin write('Nhap n: ');readln(n); m:=0;
writeln('Cac uoc cua ',n,' la: ); for x:=1 to trunc(sqrt(n)) do if n mod x=0 then begin writeln(x); m:=m+1; a[m]:=n div x; end; if (sqrt(n)=trunc(sqrt(n))) then m:=m-1; for i:=m downto 1 do writeln(a[i]); readln; end.
