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

Question

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

Answer 1

var
a:integer;
begin
readln (a);
repeat
a:=a+1;
until (a mod 2=0);
writeln (a);
end.