var b,p,s,x,a:real;

   begin

 read(b);

   x:=sqrt(sqr(b)/2);

    a:=x*2;

  writeln('P= ',(b+b+a):2:2);

    writeln('S= ', a*x*0.5);

      end.

после (b+b+a):2:2 означает округление до 2 знаков после запятой