const
 n = 3;
 m = 5;

 (* данные для тестирования
 a =
   1, 2, 3, 4, 5
   2, 3, 4, 5, 6
   3, 4, 5, 6, 7

 b =
   2, 3, 4
 *)

var
 a: array[1 .. n, 1 .. m] of integer;
 b: array[1 .. 3] of integer;

var
 i, j, k, found: integer;
 nextLine: boolean;
begin
 for i := 1 to n do
   for j := 1 to m do
     begin
       write('a[', i, ',', j, '] = ');
       readln(a[i, j])
     end;
 for i := 1 to 3 do
   begin
     write('b[', i, '] = ');
     readln(b[i])
   end;

 for i := 1 to n do
   begin
     j := 1; nextLine := false;
     while (j <= m - 3) and not nextLine do
       begin
         found := 0;
         for k := 1 to 3 do
           inc(found, byte(a[i, j+k-1] = b[k]) );
         if found = 3 then
           begin writeln( 'line: ', i ); nextLine := true end
         else inc(j)
       end;
   end;
end.

const
    n = 4;
    m = 4;
    a:array[1..n,1..m] of integer = ((2,2,3,3),(3,3,3,3),(4,4,5,7),(4,4,6,6));

    t:boolean = false;
var
    x:array[1..n,1..m] of integer;
    i,j,k,x_:integer;
begin
    for i := 1 to n do
    begin
         for j := 1 to m do
         if ((a[i,j] = a[i,j+1]) and (j < m)) or ((a[i,j] = a[i,j-1]) and (j > 1)) then
         t := true
         else
         begin
              t := false;
              break;
         end;
         if t then
         begin
              inc(x_);
              for k := 1 to m do
              x[x_,k] := a[i,k];
         end;
    end;
    for i := 1 to x_ do
    begin
         WriteLn;
         for j := 1 to m do
         Write(x[i,j]);
    end;
end.