program C; {$APPTYPE CONSOLE} uses SysUtils; const fin='C.txt'; fout='pair.txt'; var fi,fo:text; n,i,j, count:integer; begin assign(fi,fin); reset(fi); read(fi,n); close(fi); count:=0; for i:=1 to n do for j:=1 to n do if (j mod i = 0) then count:=count+1; assign(fo,fout); rewrite(fo); write(fo,count); close(fo); end.