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

Program proverka_chetnosty;var a, b, rez: integer; /// Ввели целочисленные переменные: два числа и результат beginwriteln (\'Введите два числа\'); /// Сообщение выводится на экранreadln (a, b); /// Программа присвоила введенные числа переменным a и bbeginif (a mod 2 = 0) and (b mod 2 = 0) then /// Если оба числа четны, тоrez := abs(b - a) /// результатом будет являться модуль их разностиelse rez := abs(a) + abs(b); /// иначе результатом будет являться сумма их модулейend;writeln (rez); /// Вывод результата на экранend.