Найти стороны треугольника, заданного значениями углов и радиусом вписанной окружности - Pascal

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

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

Решение задачи: «Найти стороны треугольника, заданного значениями углов и радиусом вписанной окружности»

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

function tan (x : real) : real;
begin
tan := sin(x)/cos(x);
end;
 
 
const
  Pi = 3.141592653589793;
 
var
  cornA, cornB, cornC, AB, BC, CA, r: real;   //углы при вершинах (cornA, cornB, cornC), стороны (AB, BC, CA)
 
begin
  writeln('введите радиус вписанной окружности ');
  readln(r);
  writeln('введите значения двух углов треугольника ');
  readln(cornA, cornB);
  cornC := 180 - (cornA + cornB);
  AB := r / tan(cornB * Pi / 360) + r / tan(cornA * Pi / 360);
  BC := r / tan(cornC * Pi / 360) + r / tan(cornB* Pi / 360);
  CA := r / tan(cornA * Pi / 360) + r / tan(cornC * Pi / 360); 
  Writeln('сторона АВ =', AB:6:2, ', сторона BC =', BC:6:2, ', сторона CA =', CA:6:2)
end.

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

Создается функция tan(x), которая принимает значение x типа real и возвращает значение типа real, представляющее тангенс угла x.
Создается константа Pi со значением 3.141592653589793, которая представляет число Пи.
Создается переменная cornA типа real, которая будет хранить значение одного из углов треугольника.
Создается переменная cornB типа real, которая будет хранить значение одного из углов треугольника.
Создается переменная cornC типа real, которая будет хранить значение одного из углов треугольника.
Создается переменная AB типа real, которая будет хранить полученную сторону треугольника.
Создается переменная BC типа real, которая будет хранить полученную сторону треугольника.
Создается переменная CA типа real, которая будет хранить полученную сторону треугольника.
Выводится сообщение с запросом ввести радиус вписанной окружности.
Вводится значение радиуса вписанной окружности.
Выводится сообщение с запросом ввести значения двух углов треугольника.
Вводятся значения углов треугольника cornA и cornB.
Вычисляется значение угла cornC как разность 180 градусов и суммы cornA и cornB.
Вычисляются стороны треугольника AB, BC и CA с использованием формулы для сторон треугольника вписанной окружности.
Выводится сообщение с результатами вычислений сторон треугольника.