Практическая 9(2)

program Project1;
var
   c,x,p,s : real;
begin
  readln(c);
  x :=sqrt(sqr(c) - sqr(c/2));
  p :=sqr(c) + c/2 +x;
  s := c/4 * x;
  writeln('S=', s:2:2, #10'P=', p:2:2);
  readln;
end.