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

program zz1;

var a, d, S, r1, r2:real; / / задаем переменные не целого типа

begin

write (' введите сторону равностороннего треугольника ');

read (a);

d: = (sqrt (3) * a) / 2;; / / находим высоту треугольника

r1:=a / (sqrt (3) * 2);

r2:=a / (sqrt (3));

s: = (sqrt (3) * a * a) / 4; / / находим площадь равностороннего треугольника

writeln ('площадь равностороннего треугольника = ', s:5:2); / / выводим ответ в формате пять знаков для всего числа и два знака после точки

writeln ('высота равностороннего треугольника = ', d:5:2);

writeln ('радиус вписанной окружности равностороннего треугольника = ', r1:5:2);

write ('радиус описанной окружности равностороннего треугольника = ', r2:5:2);

end.