uses wincrt;
var m,n,i,j,b,k:byte;
    a:array [0..25,0..25] of byte;
    bol:array [0..25,0..25] of boolean;
    jml:integer;
    kar:char;

procedure breaker(r,c:byte);
begin
  bol[r,c]:=true;
  inc(jml);

  if (a[r,c]=a[r-1,c]) and not(bol[r-1,c]) then breaker(r-1,c);
  if (a[r,c]=a[r+1,c]) and not(bol[r+1,c]) then breaker(r+1,c);
  if (a[r,c]=a[r,c-1]) and not(bol[r,c-1]) then breaker(r,c-1);
  if (a[r,c]=a[r,c+1]) and not(bol[r,c+1]) then breaker(r,c+1);
end;


begin
  assign(input,'input.txt');reset(input);
  readln(m,n);

  for i:=1 to m do
    for j:=1 to n do
      begin
        read(a[i-1,j-1]);
        read(kar);
      end;

  readln(b,k);
  jml:=0;

  for i:=0 to (m-1) do
    for j:=0 to (n-1) do
      bol[i,j]:=false;

  breaker(b,k);

  jml:=jml*(jml-1);

  writeln(jml);

end.