Программа для Pascal ABC С клавиатуры вводится 2 числа, если они оба четные, то найти их разность, иначе вычислить сумму модулей

Program proverka_chetnosty;

var a, b, rez: integer; / / / Ввели целочисленные переменные: два числа и результат

begin

writeln ('Введите два числа'); / / / Сообщение выводится на экран

readln (a, b); / / / Программа присвоила введенные числа переменным a и b

begin

if (a mod 2 = 0) and (b mod 2 = 0) then / / / Если оба числа четны, то

rez : = abs (b - a) / / / результатом будет являться модуль их разности

else rez : = abs (a) + abs (b); / / / иначе результатом будет являться сумма их модулей

end;

writeln (rez); / / / Вывод результата на экран

end.