Алгоритм должен выводить 0, если нельзя построить треугольник с длинами сторон a,b,c (a,b,c-заданные числа), иначе 3,2,1 если треугольник соответственно, равносторонний или равнобедренный или другой.

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.   Проверено - работает на Паскаль АВС