maximklllll

Var i:integer;

begin

for i:=100 to 999 do

if ((i mod 100 div 10)mod 2=0) and ((i mod 100 div 10)<>0)

 then writeln (i);

end.