program voorbeeld_speler_pascal;

{ dit programma is geschreven door Willem van der Vegt tbv
  opgave D van de Nederlandse Informatica OLympiade 2015
  naar analogie van het C-voorbeeld van Marcel Vlastuin }


const GROOTTE=9;
      LEEG=0;
      WIT=1;
      ZWART=2;

var bord:array[0..GROOTTE-1,0..GROOTTE-1] of integer;
    ronde, uitkomst: integer;
    lees: string;
    stoppen: boolean;

procedure beginopstelling;
var i,j: integer;
begin
  for i:=0 to GROOTTE-1 do
    for j:=0 to GROOTTE-1 do
      bord[i,j]:=LEEG
end;

function vertaal_naar_intern(x: string): integer;
begin
  vertaal_naar_intern:=10*(ord(x[1])-ord('A'))+ord(x[2])-ord('1')
  { Voorbeeld: de zet B3 wordt vertaald naar het getal 12 }
end;

function vertaal_naar_zet(x: integer): string;
var antwoord: array[1..2] of char;
begin
  antwoord[1]:=chr(ord('A')+x div 10);
  antwoord[2]:=chr(ord('1')+x mod 10);
  vertaal_naar_zet:=''+antwoord[1]+antwoord[2]
  { Voorbeeld: positie 61 wordt omgezet naar "F2" }
end;

procedure doe_witte_zet(x: integer);
begin
  bord[x div 10, x mod 10] := WIT
end;

procedure doe_zwarte_zet(x:integer);
begin
  bord[x div 10, x mod 10] := ZWART
end;

function bereken_witte_zet: integer;
var antwoord: integer;
begin
  antwoord := 0;
  { Bereken de beste zet, dus geef antwoord een waarde!
    Zelf doen! }
  bereken_witte_zet:=antwoord;
end;

function bereken_zwarte_zet: integer;
var antwoord: integer;
begin
  antwoord := 0;
  { Bereken de beste zet, dus geef antwoord een waarde!
    Zelf doen! }
  bereken_zwarte_zet:=antwoord;
end;

begin { Hoofdprogramma }
  ronde:=0;
  stoppen:=false;
  beginopstelling;
  writeln(stderr,'R voorbeeld');
  flush(stderr);
  readln(lees);
  if lees='Start' then
  begin
    repeat
      uitkomst:=bereken_witte_zet;
      doe_witte_zet(uitkomst);
      writeln(vertaal_naar_zet(uitkomst));
      flush(output);
      inc(ronde);
      stoppen:=ronde=GROOTTE*GROOTTE;
      if not stoppen then
      begin
        readln(lees);
        if lees='Quit' then stoppen:=true else
        begin
          uitkomst:=vertaal_naar_intern(lees);
          doe_zwarte_zet(uitkomst);
          inc(ronde)
        end
      end
    until stoppen
  end else
  begin
    repeat
      uitkomst:=vertaal_naar_intern(lees);
      doe_witte_zet(uitkomst);
      inc(ronde);
      uitkomst:=bereken_zwarte_zet;
      doe_zwarte_Zet(uitkomst);
      writeln(vertaal_naar_zet(uitkomst));
      flush(output);
      inc(ronde);
      readln(lees);
      if lees='Quit' then stoppen:=true
    until stoppen
  end
end.