t = int(input())
if t <= 3:
print("GREEN")
elif t <= 5:
print("RED")
elif t <= 8:
print("GREEN")
elif t <= 10:
print("RED")
elif t <= 13:
print("GREEN")
elif t <= 15:
print("GREEN")
elif t <= 18:
print("RED")
elif t <= 20:
print("GREEN")
elif t <= 23:
print("RED")
elif t <= 25:
print("GREEN")
elif t <= 28:
print("RED")
elif t <= 30:
print("GREEN")
elif t <= 33:
print("RED")
elif t <= 35:
print("GREEN")
elif t <= 38:
print("RED")
elif t <= 40:
print("GREEN")
elif t <= 43:
print("RED")
elif t <= 45:
print("GREEN")
elif t <= 48:
print("RED")
elif t <= 50:
print("GREEN")
elif t <= 53:
print("RED")
elif t <= 55:
print("GREEN")
elif t <= 58:
print("RED")
elif t <= 60:
print("GREEN")
===== PascalABC.NET =====
begin
var s := ReadlnString('Введи имя:');
case s.Last of
'а': s := s[:s.Length] + 'очка';
'я': s := s[:s.Length] + 'ечка';
end;
s.Println
end.