Program z3;
        uses crt;
        var
        k,n,i,j:integer;
        t1,t2:text;
        begin
        assign(t1,'pair.in');
        reset(t1);
        read(t1,n);
        close(t1);
        k:=0;
        for i:=1 to  n do
        for j:=1 to n do
        if i mod j =0 then k:=k+1;
        assign(t2,'pair.out');
        rewrite(t2);
        write(t2,k:7) ;
        close(t2);
        end.