Program Vlad971997;
uses crt;
var
a,b,c:real;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
write('Введите a '); readln(a);
write('Введите b '); readln(b);
write('Введите c '); readln(c);
if (a>=b+c) or (b>=a+c) or (a>=b+c) then
writeln('Ответ "0": Со сторонами a,b,c нельзя построить треугольник')
else
if (a=b)and (b=c) and (a=c) then
writeln('Ответ "3": Со сторонами a,b,c можно построить равносторонний треугольник')
else
if (a<>b)and (b<>c) and (a<>c) then
writeln('Ответ "1": Со сторонами a,b,c можно построить другой треугольник')
else
writeln('Ответ "2": Со сторонами a,b,c можно построить равнобедренный треугольник')
end.
Проверено - работает на Паскаль АВС