const INF = 1002001;

var R, checkR: Longint
var N, a, p7, p2, p14, p, i: Integer;

Begin
readln(N);

for i := 0 to (N - 1) do begin
  readln(a);

  if a mod 14 = 0 then begin
    R := min(R, a * p);
    p14 := min(p14, a);
  end
  else begin
    if a mod 7 = 0 then begin
      R := min(R, a * p2);
      p7 := min(p7, a);
    end
    else begin
      if a mod 2 = 0 then begin
           R := min(R, (long long) a * p7);
           p2 := min(p2, a);
           p := min(p, a);
      end;
end;

if R > 1000000 then
  R := 0;

readln(checkR);

write('Вычисленное контрольное значение: ');
writeln(R);

if R = checkR then
  writeln('Контроль пройден');
else
  wrtieln('Контроль не пройден');
End;