Исполнитель Счётчик преобразует число на экране.
У исполнителя есть две команды, которым присвоены номера:
1. Прибавить 5
2. Умножить на 5
Первая команда увеличивает число на экране на 5, вторая умножает его на 5. Программа для исполнителя Счётчик — это последовательность команд.
Сколько существует программ, для которых при исходном числе 5 результатом является число 200 и при этом траектория вычислений содержит число 35 и не содержит числа 170?

Пе­ре­ве­дем числа в де­ся­тич­ную си­сте­му счис­ле­ния: 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

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