Cho mình câu trả lời hay nhất nha

Uses crt;

Var n,i,s:integer;

Begin

  clrscr;

  writeln ('Nhap n:');

  readln (n);

  s:=0;

  for i:=1 to n do

  if n mod i:=0 then

  begin

  s:=s+i;

  writeln (s);

  end;

  readln;

End.

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.