（子矩阵）输入一个n1*m1的矩阵a，和n2*m2的矩阵b，

Const
  SIZE = 50;
Var
  n1, m1, n2, m2, i, j, k1, k2 : Integer;
  a, b : Array[1..SIZE, 1..SIZE] Of Integer;
  good, haveAns : Boolean;
Begin
  Readln(n1, m1);
  For i := 1 To n1 Do
    For j := 1 To m1 Do
      Read(a[i][j]);
  Readln(n2, m2);
  For i := 1 To n2 Do
    For j := 1 To m2 Do
    1;
  haveAns := FALSE;
  For i := 1 To n1 - n2 + 1 Do
    For j := 1 To     2     Do
    Begin
      3;
      For k1 := 1 To n2 Do
        For k2 := 1 To     4     Do
          If a[i + k1 - 1][j + k2 - 1] <> b[k1][k2] Then
            good := FALSE;
      If good Then
      Begin
        Writeln(i, ' ', j);
        5;
      End;
    End;
  If NOT haveAns Then
    Writeln('There is no answer');
End.