Как это решать? Подскажите В учебнике такого нет.

Const
n=10;m=7;
var
a:array[1..n,1..m]of integer;
flag,i,j,b:integer;
begin
     for i:=1 to n do
         begin
             writeln;
                 for j:=1 to m do
                      begin
                        a[i,j]:=random(312)-111;
                        write(a[i,j]:4);
                      end;
            end;
writeln;
Writeln('B ?');
readln(b);
for i:=1 to n do
  for j:=1 to m do
      if a[i,j]=b then
          flag:=1;
if flag=1 then
   writeln('Yes')
else
   writeln('N');
end.

вариант 2
const
n=10;m=7;
var
a:array[1..n,1..m]of integer;
k,i,j,b:integer;
begin
     for i:=1 to n do
         begin
             writeln;
                 for j:=1 to m do
                      begin
                        a[i,j]:=random(312)-111;
                        write(a[i,j]:4);
                      end;
            end;
writeln;
Writeln('B ?');
readln(b);
for i:=1 to n do
  for j:=1 to m do
      if a[i,j]=b then
          k:=k+1;
if k<>0 then
   writeln('Yes')
else
   writeln('N');
end.

a=8

Объяснение:

идём по шагам:

1 Шаг    a=5  b=7

2 Шаг  проверяем b<10 или нет.  Да меньше. Идём по стрелке ДА

3 Шаг  проверяем a<= b  у нас это 5<=7  Да меньше. Идём по стрелке ДА

4 Шаг  увеличиваем а и b на единицу, становится a=5+1=6  b=7+1=8  возвращаемся по стрелке к шагу 2

5 Шаг  проверяем 8<10 или нет.  Да меньше. Идём по стрелке ДА

6 Шаг  проверяем 6<=8  Да меньше. Идём по стрелке ДА

7 Шаг  увеличиваем а и b на единицу, становится a=6+1=7  b=8+1=9  возвращаемся по стрелке к шагу 2

8 Шаг  проверяем 9<10 или нет.  Да меньше. Идём по стрелке ДА

9 Шаг  проверяем 7<=9  Да меньше. Идём по стрелке ДА

10 Шаг  увеличиваем а и b на единицу, становится a=7+1=8  b=9+1=10  возвращаемся по стрелке к шагу 2

11 Шаг проверяем 10<10 или нет.  Нет.  Идём по стрелке Нет. Выход из алгоритма. На этом этапе a=8