Uses Crt;
Var a, b : Longint;
Procedure Cal;
Begin
Writeln( 'S = ', a * b );
Write( 'P = ', ( a+ b ) * 2 );
End;
Procedure IOPUT;
Begin
Assign( input, 'input.inp' ); Reset( input );
Assign( output, 'output.out' ); Rewrite( output );
Read(a , b);
Close( input );
End;
Begin
IOPUT;
Cal;
Close( output );
End.