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 ****************************************************************/