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

program triangle;label undf;var side, h, S, Ro, Rv: real;beginundf: writeln('Введите сторону треугольника:');readln( side );h := sqrt( sqr( side ) - ( sqr( side ) / 4) ); // расчет высотыS := ( ( 1 * side) / 2 ) * h; // расчет площадиRv := ( side / 2 ) * sqrt( ( 2 * side - side ) / ( 2 * side + side ) ); // расчет вписанной окружностиRo := ( sqr( side ) / sqrt( sqr( 2 * side) - sqr( side ) ) ); // расчет описанной окружности// вывод данныхwriteln('Высота: ', h);writeln('Площадь: ', S);writeln('Радиус вписанной окружности: ', Rv);writeln('Радиус описанной окружности: ', Ro);end.