Определить сторону треугольника, если известны две другие стороны и угол между ними - Pascal ABC

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

Определить сторону треугольника, если известны две другие стороны b, c и угол между ними

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

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

var
  a, b, c, alfa: real;
  
begin
  write('Первая сторона: ');
  readln(b);
  write('Вторая сторона: ');
  readln(c);
  write('Угол между ними (в градусах): ');
  readln(alfa);
  a := sqrt(sqr(b) + sqr(c) - 2 * b * c * cos(DegToRad(alfa)));
  writeln;
  writeln('Третья сторона: ', a:0:2)
end.

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

Создается переменная a типа real.
Создается переменная b типа real.
Создается переменная c типа real.
Создается переменная alfa типа real.
Выводится сообщение Первая сторона: и считывается значение переменной b.
Выводится сообщение Вторая сторона: и считывается значение переменной c.
Выводится сообщение Угол между ними (в градусах): и считывается значение переменной alfa.
Вычисляется значение переменной a как квадратный корень из суммы квадратов переменных b и c минус 2 умноженных на b и c умноженных на косинус угла в радианах переменной alfa.
Выводится сообщение Третья сторона: и выводится значение переменной a с точностью до двух знаков после запятой.