На вход дается натуральное число n. выведите следущее за ним четное число. (написать программу для решения в pascal. abc)

Var n:integer;
Begin
readln(n);
if n mod 2 =0 then writeln(n+2) else writeln(n+1);
end.