Ответ:

var a,b,c,z:integer;

begin

readln(a, b, c);

z:=0;

if (a > b) and (a > c) then begin

   z:= b+c;

   if a >= z then

       writeln('Это не треугольник')

   else write('Это разностороний треугольник');

end

else if (b > a) and (b > c) then begin

   z:= a+c;

   if a >= z then

       writeln('Это не треугольник')

   else write('Это разностороний треугольник');

end

else if (c > a) and (c > b) then begin

   z:= b+a;

   if a >= z then

       writeln('Это не треугольник')

   else write('Это разностороний треугольник')

end

else if (a = b) and (a = c) then

   write('Это равностороний треугольник')

else write('Это равнобедренный треугольник');

end.

Объяснение: