CANDI Pascal

var n:int64;
    d:longint;

procedure xuli;
var i:longint;
begin
    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-1);
end;

begin
    assign(input,'candi.inp');reset(input);
    assign(output,'candi.out');rewrite(output);
    read(n);
    xuli;
end.