program Bot; type wsp = record x,y:integer; end; rozkaz = record a,x,y:integer; end; var s:string; arena:array[1..20] of string[20]; i,j:integer; nrgracza:byte; enemytanks:array[1..4] of wsp; enemytankshp:array[1..4] of integer; allytanks:array[1..4] of wsp; allytankshp:array[1..4] of integer; finish:boolean; rozkazy:array[1..4] of rozkaz; begin Readln(nrgracza); for i:=1 to 20 do Readln(arena[i]); for i:=1 to 20 do begin for j:=1 to 20 do begin if nrgracza = 1 then begin case arena[i][j] of 'A':begin allytanks[1].x:=j; allytanks[1].y:=i; end; 'B':begin allytanks[2].x:=j; allytanks[2].y:=i; end; 'C':begin allytanks[3].x:=j; allytanks[3].y:=i; end; 'D':begin allytanks[4].x:=j; allytanks[4].y:=i; end; end; end else begin case arena[i][j] of 'E':begin allytanks[1].x:=j; allytanks[1].y:=i; end; 'F':begin allytanks[2].x:=j; allytanks[2].y:=i; end; 'G':begin allytanks[3].x:=j; allytanks[3].y:=i; end; 'H':begin allytanks[4].x:=j; allytanks[4].y:=i; end; end; end; end; end; for i:=1 to 4 do enemytankshp[i]:=5; finish:=false; while true do begin Read(enemytanks[1].x,enemytanks[1].y,enemytanks[2].x,enemytanks[2].y, enemytanks[3].x,enemytanks[3].y,enemytanks[4].x,enemytanks[4].y, allytankshp[1],allytankshp[2],allytankshp[3],allytankshp[4]); Write(rozkazy[1].a,' ',rozkazy[1].x,' ',rozkazy[1].y,' ',rozkazy[2].a,' ', rozkazy[2].x,' ',rozkazy[2].y,' ',rozkazy[3].a,' ',rozkazy[3].x, rozkazy[3].y,' ',rozkazy[4].a,' ',rozkazy[4].x, ' ',rozkazy[4].y, chr(10)); flush(output); end; end.