Question

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

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

Answer 1

var a,b,c:word;
begin
read(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then begin write('Est');
if (sqr(a)>sqr(b)+sqr(c)) or (sqr(c)>sqr(b)+sqr(a)) or (sqr(a)>sqr(c)+sqr(b)) then write ('Tupoy')
end
else write('Net');
end.

Answer 2

Коряво правда,но спасибо)