program ct;
uses crt;
var i,N,dem:integer;
S:longint;
begin clrscr;
write('Nhap so N: '); readln(N);
S:=0;
for i:=1 to N do
if N mod i=0 then
begin
S:=S+i;
dem:=dem+1;
end;
writeln('Tong cac uoc nguyen duong cua ',N,' la: ',S);
writeln(N,' co ',dem,' uoc nguyen duong');
readln;
end;
Học tốt!