Радиус окружности - Pascal

Формулировка задачи:

Радиус окружности, вписанной в равносторонний треугольник, равен R. Составить программу для вычисления стороны (признак N=1), высоты (признак N=2) или площади треугольника (признак N=3).

Решение задачи: «Радиус окружности»

Листинг программы

var a,S,r,h:real;
begin
{  r - радиус вписанной окружности в равносторонний треугольник
   a - длина стороны треугольника (AB=BC=AC)
   h - высота треугольника (за т.Пифагора)
   S - площадь треугольника   }
read(r);
a:=r*(2*sqrt(3));
S:=(sqr(a)*sqrt(3))/4;
h:=sqrt(sqr(a)-sqr(a/2));
write('a=',a:4:2,'     S=',S:4:2,'     h=',h:4:2);
end.

Объяснение кода листинга программы

Объявляются переменные:
- a - длина стороны треугольника (AB=BC=AC)
- S - площадь треугольника
- r - радиус вписанной окружности в равносторонний треугольник
- h - высота треугольника (за т.Пифагора)
Вводится значение r (радиуса вписанной окружности в треугольник).
Вычисляется значение a (длины стороны треугольника) как произведение r на 2 корня из 3.
Вычисляется значение S (площади треугольника) по формуле (a^2*sqrt(3))/4.
Вычисляется значение h (высоты треугольника) как корень из квадрата a минус квадрата половины a.
Выводятся значения переменных a, S и h с точностью до двух знаков после запятой.