var answer,n,i:longint;begin readln(n); answer:=0; for i:=1 to n do if n mod i=0 then inc(answer); writeln(answer);end.
....................等楼下答案
不知道