Определить следующее четное число, идущее после заданного числа.

var a:integer; 
begin 
writeln('Введите A'); 
read(a);   
repeat    
a:=a+1;   
until (a mod 2=0);   
writeln('Следующее четное число: ',a);   
end.

Например вводим 3, следующее четное после трех - число 4. Программа выводит 4.

Var A:integer;
Begin
WriteLn('Введи целое число');
ReadLn(A);
if A mod 2 = 0 then WriteLn(A+2)
else WriteLn(A+1)
End.