大法师要去执行任务，他有M名战士可以随行，编号为1…M。大法师的幸运数字恰好也为M。作为一个怪异个性的老法师，他挑选战士的方法也很特别：如果这个战士的编号与M的最大公约数大于1，则大法师要这个战士，反之不要。请问他可以挑选多少名战士？
（我相信大神会帮助我的）

program x;
var m,i,s:integer;
function f(a,b:integer):integer;
begin
if b=0 then exit(a) else
f:=f(b,a mod b);
end;
begin //main
writeln('input m');
readln(m);
s:=0;
for i:=2 to m do if f(m,i)>1 then inc(s);
writeln(s);
end.

一切不给数据范围的行为都是耍流氓！