Ответ:

var a,b,c: double;

begin

write('Введите a: ');

readln(a);

write('Введите b: ');

readln(b);

write('Введите c: ');

readln(c);

if (a<b+c) and (b<a+c) and (c<a+b) then begin

if (a*a+b*b<c*c) or (a*a+c*c<b*b) or (b*b+c*c<a*a) then

writeln('Треугольник существует. Он тупоугольный')

else if (a*a+b*b=c*c) or (a*a+c*c=b*b) or (b*b+c*c=a*a) then

writeln('Треугольник существует. Он прямоугольный')

else writeln('Треугольник существует. Он остроугольный')

end

else  writeln('Треугольник не существует.')

end.