var i,a,b,c,d:longint;
begin
for i:=1000 to 9999 do
begin
a:=i mod 10;
b:=i div 10 mod 10;
c:=i div 100 mod 10;
d:=i div 1000;
if ((d+c) mod 2=0) and ((a+b) mod 2=1) and (d+c>a+b) and (i mod 8=0) then writeln(i);
end;
end.
/**************************************************************
	Problem: 1715
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/