program mn;
uses crt;
var a:array[1..9,1..9]of string;
i,j,b,c:integer;
g,x:string;
BEGIN
ClrSCr;
for i:=1 to 8 do
begin
str(i,g);
a[1,i+1]:=g;
case i of
1:g:='a';
2:g:='b';
3:g:='c';
4:g:='d';
5:g:='e';
6:g:='f';
7:g:='g';
8:g:='h';
end;
a[i+1,1]:=g;
end;
for i:=1 to 9 do
begin
for j:=1 to 9 do
Write(a[i,j]:1);
writeln;
end;
Write('Koordinati:');readln(x);
for i:=2 to 9 do
begin
if a[1,i]=x[2]
then c:=i;
if a[i,1]=x[1]
then b:=i;
end;
if (b+2<=9)and(c+1<=9)
then Writeln(a[b+2,1]+a[1,c+1]);
if (b+2<=9)and(c-1>=2)
then Writeln(a[b+2,1]+a[1,c-1]);{vniz}
if (b-2>=2)and(c+1<=9)
then Writeln(a[b-2,1]+a[1,c+1]);
if (b-2>=2)and(c-1>=2)
then Writeln(a[b-2,1]+a[1,c-1]);{vverh}
if (b+1<=9)and(c+2<=9)
then Writeln(a[b+1,1]+a[1,c+2]);
if (b+1<=9)and(c-2>=1)
then Writeln(a[b+1,1]+a[1,c-2]);{vverh}
if (b-1>=2)and(c+2<=9)
then Writeln(a[b-1,1]+a[1,c+2]);
if (b-1>=2)and(c-2>=2)
then Writeln(a[b-1,1]+a[1,c-2]);{vniz}
readln;
END.