begin
clrscr;
write('nhap so N');
readln(N);
S:=0;
For i:=1 to (N-1) do
if N mod i =0 then S:=S+1;
writeln('Tong uoc so cua ',N,'la ',S );
readln;
end.
`-----------`
uses crt;
var i,t:integer;
begin
clrscr;
i:=1;
t:=0;
repeat
t:=t+i;
inc(i);
until t>=100;
writeln(t);
readln;
end.