program nextnum;
var
n: Integer;
begin
Write ('N = ');
ReadLn (n);
repeat
Inc (n)
until n mod 2 = 0;
WriteLn ('Следующее четное = ', n);
ReadLn;
end.
