TIMUOC Pascal

var n:int64;

procedure giai;
var d,i:longint;
begin
    readln(n);
    d:=0;
    for i:=1 to trunc(sqrt(n)) do
           if n mod i = 0 then inc(d,2);
    if sqrt(n)=trunc(sqrt(n)) then dec(d);
    write(d);
end;

begin
    assign(input, 'demuoc.inp');reset(input);
    assign(output, 'demuoc.out');rewrite(output);
    giai;
    close(input);close(output);
end.