Решите 2 и можно ещё 3))) в опен оффисе

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.

Клавиатура, джойстик, сканер, (принтер - устройство вывода)
Монитор, графопостроитель, принтер, (мышь -  устройство ввода).
Жёсткий диск, flash-память, компакт-диск, (процессор - не элемент памяти) .
Принтер, акустические колонки, наушники, (микрофон -  устройство ввода).
(Системный блок -  обобщенное), центральный процессор, оперативная память, жёсткий диск, блок питания.
Системный блок, клавиатура, мышь, монитор, (акустические колонки - не обязательны).
Видеокарта, (карта расширения, звуковая карта, сетевая карта.
Enter, (End  - др. функциональное назначение), Esc, Delete.
(Цветовой принтер - не существует), лазерный принтер, матричный принтер, струйный принтер 

слова, которые нужно удалить - в скобках, и пояснения, почему так