Даны 3 действительных числа - сторорны треугольника: можно ли построить такой треугольник? - Pascal

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

Даны действительные положительные числа a b c. Можно ли построить такой треугольник? Найти углы треугольника.

Решение задачи: «Даны 3 действительных числа - сторорны треугольника: можно ли построить такой треугольник?»

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

function Ugol(a,b,c:real):real;
var p:real;
begin
p:=(a+b+c)/2;
Ugol:=(2*arctan(sqrt((p-b)*(p-c)/(p*(p-a)))))*(180/pi);
end;
var a,b,c,ua,ub,uc:real;
begin
writeln('Введите длины строн треугольника');
readln(a,b,c);
if(a>=b+c)or(b>=a+c)or(c>=a+b)then
write('Эти отрезки не могут быть сторонами треугольника')
else
 begin
  writeln('Углы равны:');
  write(Ugol(a,b,c):0:1,'  ',Ugol(b,a,c):0:1,'  ',Ugol(c,a,b):0:1);
 end;
end.

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

В функции Ugol переменная p инициализируется как среднее арифметическое трех чисел a, b и c.
Затем вычисляется значение Ugol, которое представляет собой полупериметр треугольника, умноженный на арктангенс двух углов и умноженный на 180/пи.
В основной программе переменные a, b и c инициализируются вводом пользователя.
Проверяется условие, что сумма трех чисел не превышает a + b + c. Если это условие не выполняется, то выводится сообщение о том, что эти отрезки не могут быть сторонами треугольника.
Если условие выполняется, то выводятся углы треугольника, вычисленные функцией Ugol.