var a,b,x,y,n,i,j,nr:integer;  f,t:text;
begin
     assign(f,'fractii.in');
     reset(f);
     readln(f,n);
     close(f);
     assign(t,'fractii.out');
     rewrite(t);
     FOR i:=1 to n DO
     FOR j:=1 to n DO
     begin
     x:=a;
     y:=b;
     while a<>b DO
     IF a>b THEN
     x:=x-y
     ELSE
     y:=y-x;
     IF x>1 THEN
     nr:=nr+1;
     end;
     write(t,nr);
     end.