program nsd; {$APPTYPE CONSOLE} var i,j,n,k:integer; begin assign (input,'pair.in'); reset(input); assign (output,'pair.out'); rewrite(output); readln(n); k:=0; for j:=1 to n do for i:=1 to j do if (j mod i=0) then k:=k+1; writeln(k); close(output); close(input); { TODO -oUser -cConsole Main : Insert code here } end.