var a,b:integer; 
begin 
  write('a-> '); 
  readln(a); 
  write('b-> '); 
  readln(b); 
  while a<=b do 
   begin 
    if (a>0) and (a mod 2 = 0) then writeln(a); 
    inc(a); 
   end; 
  readln; 
end.