本题有一个欧拉公式可以算以x为分母的既约分数的个数，如下：

function euler(x:longint):int64;
var
  o:longint;
  sum,t:int64;
begin
  sum:=1;
  o:=2;
  while o*o<=x do
  begin
    if x mod o=0 then
    begin
      t:=1;
      while x mod o=0 do
      begin
        x:=x div o;
        t:=t*o;
      end;
      sum:=sum*(t-t div o);
    end;
    if odd(o)
      then inc(o,2)
      else inc(o);
  end;
  if x>1 then sum:=sum*(x-1);
  exit(sum);
end;

这样，读入 $x$ 和 $y$ 后，只需将 $i$ 从 $2\cdots y-1$ 将 $eular(i)$ 加起来，然后又将 $i$ 从 $1\cdots x-1$ for 一次，只要 $\frac{i}{y}$ 是既约分数，就将总值在加一。以此就算出了答案。

begin
  sum:=0;
  for i:=2 to y-1 do
   sum :=sum+ euler(i);
  for i:=1 to x do
  if gcd(i,y)=1
    then inc(sum);
  writeln(sum);
end.