program infoarena;
var p,q,n,d,a,b:longint;
begin
writeln('Introduceti numarul natural n');
readln(n);
d:=0;
for p:=1 to n do begin
for q:=1 to n do begin
a:=p;
b:=q;
while a<>b do begin
if a>b then a:=a-b
else b:=b-a;
end;
if a=1 then d:=d+1;
end;
end;
write('In sir sunt ');
write(d);
writeln(' de fractii');
readln;
end.