【1024】因子

### 代码块

Var n,i,s,x:longint;

Begin
        read(n);
        for i:=1 to trunc(sqrt(n)) do
        Begin
                if n mod i=0 then
                Begin
                        x:=n div i;
                        if x<>i then s:=s+2
                        else s:=s+1;
                end;
        end;
        write(s);
end.