Страница 154 §3.4 номер 8, ГДЗ по информатике за 8 класс к учебнику Босовой

program z8;

var

  a, b, c: integer;

begin

  write('a,b,c >>');

  readln(a, b, c);

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

  begin

    if (a = b) and (b = c) then writeln('Равносторонний')

    else if (a = b) or (a = c) or (b = c) then writeln('Равнобедренный')

    else writeln('Разносторонний')

  end

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

end.