Алгоритм должен выводить 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 ***');   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.

проверено - работает на паскаль авс