Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоту, радиусы описанной и вписанной окружностей.На языке паскале

Прежде всего - формулы. Пусть а - длина стороны, тогда


var
  a, r, rr, h, s: real;

begin
  Write(Введите длину стороны треугольника: );Readln(a);
  r := sqrt(3) * a / 6;
  rr := 2 * r;
  h := 3 * r;
  s := a * h / 2;
  Writeln(Радиус вписанной окружности , r);
  Writeln(Радиус описанной окружности , rr);
  Writeln(Высота треугольника , h);
  Writeln(Площадь треугольника , s);
end.

Тестовое решение:
Введите длину стороны треугольника: 10
Радиус вписанной окружности 2.88675134594813
Радиус описанной окружности 5.77350269189626
Высота треугольника 8.66025403784439
Площадь треугольника 43.3012701892219