program Tin_hoc;
uses crt;
var i,n,k:integer;
begin
clrscr;
writeln('Nhap so nguyen duong N: ');readln(n);
while n<0 do
begin
write('Nhap lai: ');
readln(n)
end;
k:=0;
for i:= 1 to n do if n mod i = 0 then inc(k);
writeln('So ',n,' co tat ca ',k,' uoc');
readln;
end.