CLS

a:

INPUT a

IF a<=0 THEN GOTO a

b:

INPUT b

IF b<=0 THEN GOTO b

c:

INPUT c

IF c<=0 THEN GOTO c

IF a>=b+c OR b>=a+c OR c>=a+b THEN PRINT 0: END

IF a=b AND b=c AND c=a THEN PRINT "треугольник равноcторонний" END

IF a=b OR b=c OR c=a THEN PRINT "треугольник равнобедренный": ELSE PRIINT "другой"

END

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.

Проверено - работает на Паскаль АВС