PAINTING Pascal

var n,k,i:longint;

function min(a,b,c,d:longint):longint;
var m:longint;
begin
    m:=a;
    if b<m then m:=b;
    if c<m then m:=c;
    if d<m then m:=d;
    exit(m);
end;

procedure giai;
var i,j,x:longint;
begin
    readln(i,j);
    x:=min(i,j,n-i+1,n-j+1);
    if x mod 3=1 then writeln('RED')
    else
        if x mod 3=2 then writeln('BLUE')
        else writeln('YELLOW');
end;
begin
    assign(input,'painting.inp');reset(input);
    assign(output,'painting.out');rewrite(output);
    readln(n,k);
    for i:=1 to k do
        giai;
end.