Question

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

Answer 1

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