Определить следующее четное число, идущее после заданного числа - Pascal ABC

Определить следующее четное число, идущее после заданного числа

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

program NextEven;
 
var
  i: integer;
begin
  readln(i);
  writeln(i + 2 - abs(i mod 2));
end.

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

В данном коде на языке Pascal ABC происходит следующее:

Создается переменная i типа integer.
Считывается значение переменной i с помощью функции readln().
Вычисляется значение выражения (i + 2 - abs(i mod 2)) и записывается в переменную i.
Выводится значение переменной i с помощью функции writeln(). Таким образом, данный код определяет следующее четное число, идущее после заданного числа, и выводит его на экран.