Вводятся три произвольных числа А, В и С. Проверьте, не является ли одно из них суммой двух других - Turbo Pascal

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

Срочно нужна помощь!!! ОООчень слабо шарю в Паскале... Напишите плиз задачку с кодом... Вводятся три произвольных числа А, В и С. Проверьте, не является ли одно из них суммой двух других.

Решение задачи: «Вводятся три произвольных числа А, В и С. Проверьте, не является ли одно из них суммой двух других»

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

uses  Crt;
var   a,b,c:integer;
begin
      ClrScr;
       Write('A = '); Readln(a);
        Write('B = '); Readln(b);
         Write('C = '); Readln(c);
          Writeln;
       if a=b+c
        then begin
               Writeln('A javljaetcja summoy B i C');
               Writeln(a,' = ',b,' + ',c)
             end
        else
         if b=a+c
          then begin
                 Writeln('B javljaetcja summoy A i C');
                 Writeln(b,' = ',a,' + ',c)
               end
          else
           if c=a+b
            then begin
                   Writeln('C javljaetcja summoy A i B');
                   Writeln(c,' = ',a,' + ',b)
                 end
            else Writeln('Net variantov');
      ReadKey;
end.

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

В начале кода подключается библиотека Crt, которая предоставляет функции для работы с потоками ввода-вывода и памятью.
Затем объявляются три переменные типа Integer: a, b и c. Они будут использоваться для хранения введенных пользователем чисел.
Функция ClrScr используется для очистки экрана перед началом ввода данных.
Далее идет блок чтения трех чисел. Для этого используется функция Readln, которая считывает строку ввода и удаляет символ новой строки.
После ввода данных выводится символ новой строки с помощью функции Writeln.
Затем выполняется проверка на равенство трех чисел. Для этого используется оператор if. Если a равно b плюс c, то выводится сообщение и вычисляется сумма a, b и c. Если b равно a плюс c, то выводится сообщение и вычисляется сумма b, a и c. И наконец, если c равно a плюс b, то выводится сообщение и вычисляется сумма c, a и b.
Если ни одно из условий не выполняется, то выводится сообщение о том, что нет вариантов.
В конце кода вызывается функция ReadKey, которая ожидает ввода пользователя.