uses crt;
var i,n,tong,dem:integer;
Begin
clrscr;
writeln('Nhap n:');readln(n);
tong:=0; dem:=0;
for i:= 1 to n do if n mod i = 0 then begin tong:=tong+i; dem:=dem+1 end;
writeln(' Tong cac uoc nguyen duong cua ',n,' la ',tong);
writeln(' So luong uoc nguyen duong cua ',n', la ',dem);
readln;
end.