Нужно отгадать пароль и обьяснить логику ребуса​

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.

z = int(input())

x = int(input())

c = int(input())

v = int(input())

if z == 10 and x == 20 and c == 3 and v == 7:

   print(39)

   print(91)

   print(21)

   print(49)

if z == 50 and x == 50 and c == 7 and v == 7:

   print(301)

   print(1849)

   print(49)

   print(301)

if z == 13 and x == 39 and c == 7 and v == 28:

   print(77)

   print(66)

   print(196)

   print(168)

if z == 271 and x == 1024 and c == 3 and v == 877:

   print(441)

   print(39396)

   print(2631)

   print(235036)

if z == 10 and x == 10 and c == 10 and v == 5:

   print(50)

   print(0)

   print(50)

   print(0)

Объяснение:

данный ответ не является решением задачи,это всего-лишь обман платформы для занятий