DEMHS PASCAL

var nam,nu,gay:array[0..100000] of longint;
    n,test,i,l,r,x:longint;
procedure nhap;
var i:longint;
begin
    readln(n,test);
    for i:=1 to n do
    begin
        readln(x);
        nam[i]:=nam[i-1];
        nu[i]:=nu[i-1];
        gay[i]:=gay[i-1];
        if x=1 then nam[i]:=nam[i-1]+1;
        if x=2 then nu[i]:=nu[i-1]+1;
        if x=3 then gay[i]:=gay[i-1]+1;
    end;
end;

procedure xuli;
var i:longint;
begin
    for i:=1 to test do
       begin
        readln(l,r);
        writeln(nam[r]-nam[l-1],' ',(nu[r]-nu[l-1]),' ',(gay[r]-gay[l-1]));
     end;
end;
begin
    assign(input,'demhs.inp');reset(input);
    assign(output,'demhs.out');rewrite(output);
    nhap;
    xuli;
end.