Verified answer

var a,b,c: real;

begin

readln(a,b,c);

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

begin

if ((a=b) or (b=c) or (a=c)) and (not((a=b) and (b=c)))

then write('треугольник равнобедренный')  

else write('треугольник не равнобедренный');

end else

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

end.