Определить, можно ли построить треугольник с заданными сторонами - Pascal ABC (18501)

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

Заданы три целых числа a, b, c. Определить, можно ли построить треугольник с такими сторонами. Треугольник может быть построен, если a+b>c и b+c>a и a+c>b Помогите!!! срочно!!! прошу, люди!!!

Решение задачи: «Определить, можно ли построить треугольник с заданными сторонами»

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

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

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

Задаются три переменные типа integer: a, b, c.
Вводятся значения для каждой из переменных с помощью функции readln().
Вычисляется и проверяется условие (a+b>c) and (b+c>a) and (a+c>b) с помощью оператора and.
В зависимости от результата проверки выводится соответствующее сообщение: Треугольник существует или Треугольник не существует.
Программа ожидает ввода с помощью функции readln() для завершения работы.