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

varn,a:integer;beginwrite('Введите число: ');readln(n);a:=n mod 2;writeln('Следующее четное число: ', n+2-a*1);end.