Var
 N,i:Byte;
 P1,P2:Real;
Begin
 Write('N = ');
 Readln(N);
 P1:=1;
 P2:=1;
 for i:=1 to (N div 2) do
  begin
   P1:=P1*(2*i-1);
   P2:=P2*(2*i);
  end;
 If (N mod 2)=1 then P1:=P1*N;
 Writeln('P1 = ',P1:0:0,'     P2 = ',P2:0:0);
 Readln
End.