написать в программе паскаль

+ 0 -

Arena

18 авг. 2013 г., 17:37:24 (10 лет назад)

var a,b,c,eq:integer;

begin

   readln(a,b,c);

   eq:=0;

   if(a>=b+c) then eq:=eq-100 else

      if(a=b) then inc(eq);

   if(b>=a+c) then eq:=eq-100 else

      if(b=c) then inc(eq);

   if(c>=a+b) then eq:=eq-100 else

      if(a=c) then inc(eq);

   case eq of

      0: writeln('Разносторонний');

      1: writeln('Равнобедренный');

      3: writeln('Равносторонний');

      else writeln('Не существует');

   end

end.