На вход дается натуральное число N. Выведите следущее за ним четное число. (Написать программу для решения в Pascal. ABC)

Предыдущий
вопрос Следующий
вопрос

Program NextEvenNumber;
Var
N: Integer;
Begin
// Ввод числа N
Write('Введите число N: ');
Readln(N);
// Поиск следующего четного числа
If N mod 2 = 0 then
Writeln('Следующее четное число после ', N, ' : ', N + 2)
Else
Writeln('Следующее четное число после ', N, ' : ', N + 1);
End.