Pascal. Задача 2-8

Пользователь вводит длины сторон треугольника, Если треугольник существует, то определить равносторонний, равнобедренный или разносторонний этот треугольник.

Решение

var
  a, b, c : integer;
begin
  writeln('Введите длины сторон треугольника a, b, c');
  readln(a, b, c);
  if (a < b + c) and (b < a + c) and (c < a + b) then
    if (a = b) and (b = c) and (a = c) then writeln('Равносторонний треугольник')
       else if (a = b) or (b = c) or (a = c) then writeln('Равнобедренный треугольник')
            else writeln('Разносторонний треугольник')
  else writeln('Треугольник не существует');
end.