uses crt; var n,i,d,tong:longint; function gt(x:longint):longint; begin if x<2 then exit(x) else exit(x*gt(x-1)); end; begin clrscr; repeat write('Nhap n(0<n<101)=');readln(n); until (0<n) and (n<101); d:=0; tong:=0; for i:=1 to gt(n) div 2 do if gt(n) mod i=0 then begin d:=d+1; tong:=tong+i; end; writeln(d); writeln(tong); readln; end.
