ПОМОГИТЕ ПО ПАСКАЛЮ, нужно продолжить программуЕсть задача: Проверьте можно ли…

ПОМОГИТЕ ПО ПАСКАЛЮ, нужно продолжить программуЕсть задача: Проверьте можно ли построить треугольник из отрезков с длинами сторон 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 (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. Но мне нужна именно формула ТУПОУГОЛЬНОГО треугольника, помогите вывести ее пожалуйста!