Определить, сколько существует треугольников с предлагаемыми длинами сторон a, b, c, d, e - Pascal

Формулировка задачи:

Составить программу, которая проверяет, сколько существует треугольников с предлагаемыми длинами сторон a, b, c, d, e. Использовать неравенство треугольника.

Решение задачи: «Определить, сколько существует треугольников с предлагаемыми длинами сторон a, b, c, d, e»

Листинг программы

var a, b, c: integer;
 
begin
    write (' Длины сторон: ');
    readln (a,b,c);
 
    if (a < b+c) and (b < a+c) and (c < a+b) then
        writeln ('Треугольник существует.')
    else
        writeln ('Треугольник не существует.');
 
readln
end.

Объяснение кода листинга программы

Объявлены три переменные типа integer: a, b, c.
Выводится запрос на ввод длин сторон треугольника.
С помощью функции readln вводятся значения длин сторон треугольника и сохраняются в переменных a, b, c.
С помощью условного оператора if проверяется, является ли треугольник существует, используя неравенство треугольника.
Если треугольник существует, выводится сообщение Треугольник существует..
Если треугольник не существует, выводится сообщение Треугольник не существует..
Завершается выполнение программы.