program japonu_kalendorius;

  procedure metu_spalva (m: integer; var spalva: string);
  { nustato kokios spalvos gyv–no yra duotieji metai }
  begin
    case m mod 10 of
      4,5: spalva := '’ALIA';
      6,7: spalva := 'RAUDONA';
      8,9: spalva := 'GELTONA';
      0,1: spalva := 'BALTA';
      2,3: spalva := 'JUODA';
    end;
  end; { met—_spalva }

  var m: integer;
      spalva: string;
begin
  readln (m);
  metu_spalva (m, spalva);
  writeln (spalva);
end.