{
TASK: Y1984
LANG: PASCAL
}
program Y1984;
var Q,M,N:integer;
    R,X,Y:integer;
    i,j,ok:integer;
begin
write('N=');readln(N);
write('M=');readln(M);
if (N>1024) and (M>1024) then writeln('nekorektni danni')
else
    begin
for i:=1 to M do writeln('A',' ','B',' ','R');
    end;
if R=0 then writeln('priqteli');
if R=1 then writeln('vragove');
if Q>100 then writeln('nekorektni danni')
else
     begin
for j:=1 to Q do begin
if ok=0 then writeln('priqteli')
else
if ok=1 then writeln('vragove')
else
if ok=2 then writeln('nqma info')
end;
end;
writeln(X,Y);
end.


