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.