Желтоксан айындагы толенетін соманы есептеу формуласын жазыныз

Const
  m=5;
  n=7;
var
  a:array[1..m,1..n] of integer;
  i,j,amax:integer;
  p:real;
begin
  Randomize;
  Writeln('Исходный массивэ');
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(90)+10;
      Write(a[i,j]:3)
      end;
    Writeln
    end;
  {Задача 1}
  amax:=a[1,1];
  for i:=1 to m do
    for j:=1 to n do
      if a[i,j]>amax then amax:=a[i,j];
  Writeln('Максимальный элемент равен ',amax);
  {Задача 2}
  p:=1;
  for i:=1 to m do
    for j:=1 to n do
      if a[i,j] mod 2=0 then p:=p*a[i,j];
  Writeln('Произведение четных элементов равно ',p);
end.

Пример работы
Исходный массивэ
 94 20 49 80 70 55 40
 62 74 71 51 88 10 76
 68 11 11 74 96 50 69
 98 34 25 93 52 53 61
 68 85 35 15 77 78 97
Максимальный элемент равен 98
Произведение четных элементов равно 2.86826492979212E+33

Пе­ре­ве­дем числа в де­ся­тич­ную си­сте­му счис­ле­ния: A416 + 208 = 10·16+4 + 2·8 = 164 + 16 = 18010. Пе­ре­ве­дем по­лу­чен­ное число в дво­ич­ную си­сте­му счис­ле­ния: 18010 = 1⋅27 + 0⋅26 + 1⋅25 + 1⋅24 + 0⋅23 + 1⋅22 + 0⋅2 + 0 = 101101002. Срав­ним его с дан­ны­ми нам в усло­вии дво­ич­ны­ми чис­ла­ми: 10001011 — мень­ше, чем 10110100; 10111000 — боль­ше, чем 10110100; 10011011 — мень­ше, чем 10110100; 10110100 — сов­па­да­ет с 10110100. Таким об­ра­зом, имеем одно число, боль­шее, чем A416+208