Вопрос по информатике:

ПОМОГИТЕ ПО ПАСКАЛЮ, нужно продолжить программу

Есть задача :Проверьте можно ли построить треугольник из отрезков с длинами сторон x, y и z, и, если можно, то является ли он тупоугольным
Вот примерная программа
var a,b,c: real;
BEGIN
writeln('Введите значения a,b,c');
readln(a,b,c);
if (a+b <=c) or (b+c <= a) or (c+a <= b) then writeln('Треугольника с такими сторонами не существует! ')
else begin
if (sqr(a)+sqr(b)<sqr(c))and(sqr(b)+sqr(c)>sqr(a))and(sqr(c)+sqr(a)>sqr(b)) then writeln('Треугольник остроугольный')
else if (sqr(a)+sqr(b)=sqr(c))and(sqr(b)+sqr(c)=sqr(a))and(sqr(c)+sqr(a)=sqr(b)) then writeln('Треугольник прямоугольный')
else writeln('Треугольник тупоугольный');
end;
END.
но мне нужна именно формула ТУПОУГОЛЬНОГО треугольника, помогите вывести ее пожалуйста!