Question

1) Пусть дано целое число i. Требуется оставить его без изменения, если оно делится на 2, и вычесть из него 1, если это не так

Answer 1

var
i: integer;

begin
readln(i);
if i mod 2 = 0 then
writeln(i);
else
writeln(i-1);
end