Дано целое число n. Выведите следующее за ним четное число. При решении этой задачи...

Question

Дано целое число n. Выведите следующее за ним четное число. При решении этой задачи нельзя использовать условную инструкцию if и циклы.
Ввод 7 Вывод 8
Ввод 8 Вывод 10
Решение через программу Pascal ABC.

Answer 1

Var n : integer; 

begin 
readln(n); 
writeln(n + (2 - (n mod 2))); 
readln; 

end.