program ratsukaik;
var
 n:string;
 taht:char;
 x,y, rida, veerg:integer;
 kood:integer;
 tabel:array[1..8,1..8] of integer;

 procedure kirjuta_tabel;
 var i, j: integer;
 begin
   for i:=1 to 8 do
   begin
    for j:=1 to 8 do
     write(tabel[i, j]);
    writeln;
   end;
 end;

 function taheks(a:integer):string;
 begin
 case a of
  1:taheks:='A';
  2:taheks:='B';
  3:taheks:='C';
  4:taheks:='D';
  5:taheks:='E';
  6:taheks:='F';
  7:taheks:='G';
  8:taheks:='H';
 end;
 end;
begin
for rida:=1 to 8 do
for veerg:=1 to 8 do
    tabel[rida, veerg]:=0;

 Writeln('Sisesta ratsu asukoht tyhjal malelaual');
 readln(n);
 taht:=n[1];
 val(n[2],y,kood);
 case upcase(taht) of
  'A':x:=1;
  'B':x:=2;
  'C':x:=3;
  'D':x:=4;
  'E':x:=5;
  'F':x:=6;
  'G':x:=7;
  'H':x:=8;
 end;
 tabel[x, y]:=1;
 kirjuta_tabel;
{ for rida:=1 to 8 do
 for veerg:=1 to 8 do
     tabel[rida, veerg]:=n;}

{ for 1 to 8 do}
 {yles}
 if y-2>0 then
  begin
   if x-1>0 then tabel[x-1, y-2]:=2;{write(taheks(x-1),y-2,' ');}
   if x+1<9 then tabel[x+1, y-2]:=2;{write(taheks(x+1),y-2,' ');}
  end;
 {alla}
 if y+2<9 then
  begin
   if x-1>0 then tabel[x-1, y+2]:=2;{write(taheks(x-1),y+2,' ');}
   if x+1<9 then tabel[x+1, y+2]:=2;{write(taheks(x+1),y+2,' ');}
  end;
 {vasakule}
 if x-2>0 then
  begin
   if y-1>0 then tabel[x-2, y-1]:=2;{write(taheks(x-2),y-1,' ');}
   if y+1<9 then tabel[x-2, y+1]:=2;{write(taheks(x-2),y+1,' ');}
  end;
 {paremale}
 if x+2<9 then
  begin
   if y-1>0 then tabel[x+2, y-1]:=2;{ write(taheks(x+2),y-1,' ');}
   if y+1<9 then tabel[x+2, y+1]:=2;{write(taheks(x+2),y+1,' ');}
  end;
  kirjuta_tabel;


for  x:=1 to 8 do
for y:=1 to 8 do
  if tabel[x, y]=2 then
  begin

  {yles}
  if y-2>0 then
 begin
 if x-1>0 then tabel[x-1, y-2]:=3;
 if x+1<9 then tabel[x+1, y-2]:=3;
end;
{alla}
if x+2>9 then
begin
if y-1>0 then tabel[x-1, y+2]:=3;
if y+1<9 then tabel[x+1, y+2]:=3;
end;
{vasakule}
if x-2>0 then
begin
if y-1>0 then tabel[x-2, y-1]:=3;
if y+1<9 then tabel[x-2, y+1]:=3;
end;
{paremale}
if x+2<9 then
begin
if y-1>0 then tabel[x+2, y-1]:=3;
if y+1<9 then tabel[x+2, y+1]:=3;
end;
end;
writeln;
kirjuta_tabel;
begin
for x:=1 to 8 do
for y:=1 to 8 do
     if tabel[x, y]=3 then
       write(taheks(x),y,' ');

end;
end.