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

Предыдущий
вопрос Следующий
вопрос

program EquilateralTriangle;
var
side, area, height, radius_circumscribed, radius_inscribed: real;
begin
// вводим значение стороны равностороннего треугольника
writeln('Введите длину стороны равностороннего треугольника: ');
readln(side);

// вычисляем площадь треугольника
area := (sqrt(3) / 4) side side;
writeln('Площадь равностороннего треугольника: ', area);

// вычисляем высоту треугольника
height := (sqrt(3) / 2) * side;
writeln('Высота равностороннего треугольника: ', height);

// вычисляем радиус описанной окружности
radius_circumscribed := side / (2 * sin(Pi / 3));
writeln('Радиус описанной окружности равностороннего треугольника: ', radius_circumscribed);

// вычисляем радиус вписанной окружности
radius_inscribed := (sqrt(3) / 6) * side;
writeln('Радиус вписанной окружности равностороннего треугольника: ', radius_inscribed);
end.