var a,b,c,d:real; begin read(a,b); if ((a>=60) and (b<60)) or ((a<60) and (b>=60)) then write('green') else write('red'); end. /************************************************************** Problem: 1658 User: admin Language: Pascal Result: Wrong Answer ****************************************************************/