var
n,y : integer;
begin
writeln('введите  n');
readln(n);
repeat
y:=0;
until  n mod 2=0;
y:=n*2;
writeln('y=',y);
end. 