program Hien_thi;

uses crt;

var n,i:longint;

begin

clrscr;

writeln('nhap so tu nhien n'); readln(n);

for i:=1 to n do

if n mod i=0 then writeln('Uoc cua n la',n/i:0:0);

readln

end.

uses crt;

var i,n,t:integer;

begin

clrscr;

readln(n);

t:=0; i:=1; 

while (i<=n) do 

  begin

if n mod i=0 then t:=t+i;

i:=i+1;

end;

writeln(t);

readln;

end.