jrobot pascal

var     a:array[1..1000,1..1000] of longint;
      d:array[0..10000] of longint;
        u,v,i,n,m,kq:longint;

begin
    assign(input, 'JROBOT.inp');reset(input);
    assign(output, 'JROBOT.out');rewrite(output);
        fillchar(d,sizeof(d),0);
         readln(n,m);
        for i:=1 to n do
          for j:=1 to m do
             begin
                 read(a[i,j]);
                    inc(d[a[i,j]]);
              end;
      readln(u,v);
        kq:=0;
       for i:=a[u,v]+1 to 10000 do
            if d[i]>0 then inc(kq);
        writeln(kq);
end.