program new;
var num:integer;
function check(n:integer):integer;
var i,c:integer;
begin
    c:=1;
    for i:=1 to (n div 2) do
        if n mod i = 0 then
           c:=c+1;
    check:=c;
end;
begin
     writeln('Enter A Number');
     readln(num);
     writeln('Mispar Amechalikim Is: ',check(num));
end.