Дана сторона равностороннего треугольника. найти площадь этого треугольника, его Высоту, радиусы вписанной и описанной окружностей — Pascal(Паскаль)

var strona:integer;
      S,h,r1,R:real;
  begin
    readln(strona);
      S:=sqr(strona)*sqrt(3)/4;
      R:=strona/sqrt(3);
      r1:=R/2;
      h:=sqrt(sqr(strona)-sqr(strona/2));
   writeln(S:4:3,' ',h:4:3,' ',r1:4:3,' ',R:4:3);
  end.