Вывести на экран большее из двух чисел a,b, если а+b>0, и их разность и произведение в противном случае. - Pascal ABC

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

Вывести на экран большее из двух чисел a,b, если а+b>0, и их разность и произведение в противном случае.

Решение задачи: «Вывести на экран большее из двух чисел a,b, если а+b>0, и их разность и произведение в противном случае.»

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

uses crt;
var
a,b:real;
Begin
write('Vvedite A: ');
 readln(a);
write('Vvedite B: ');
 readln(b);
if a+b>0 then
 Begin
  if a>b then write('Boshee chislo: ',a);
  if b>a then write('Boshee chislo: ',b);
  if a=b then write('Chisla ravny');
 end;
if A+b<0 then
 Begin
  writeln('Raznost`=',a-b);
  writeln('Proizvedenie=',a*b);
 end;
if a+b=0 then write('Usloviem zadachi takogo ne predusmotreno');
end.

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

В начале кода подключается библиотека crt, которая используется для работы с консольным вводом-выводом.
Переменные a и b объявлены как real, что означает, что они могут хранить числа с плавающей точкой.
С помощью функции readln считывается ввод пользователя для переменных a и b.
Затем происходит проверка условия a+b>0. Если это условие истинно, то выполняется следующий блок кода. Если условие ложно, то переходим к следующему блоку.
Внутри блока проверяется, какое из чисел a и b больше. Если a больше b, то выводится на экран число a. Если b больше a, то выводится на экран число b. Если a и b равны, то выводится на экран сообщение Chisla ravny.
Если условие a+b<0, то выполняется следующий блок кода. Если условие истинно, то выводится на экран разница между a и b, а затем произведение a и b. Если условие ложно, то переходим к следующему блоку.
Если условие a+b=0, то выводится на экран сообщение Usloviem zadachi takogo ne predusmotreno, что означает, что условия задачи не выполняются.
Конец программы.