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

program triangle; label undf; var side, h, S, Ro, Rv: real; begin undf: 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.