У исполнителя Квадратор две команды, которым присвоены номера: 1. вычти b
2. раздели на 2
Первая из них уменьшает число на экране на b, вторая делит число на 2. Исполнитель работает только с натуральными числами. Известно что алгоритм 11121 переводит число 72 в число 6. Определите значение b.

Program pr;
uses crt;

Var mas:array[1..1000, 1..1000] of integer;
N,M,i,j,k:integer;

Begin
Writeln('Введите размер матрицы N*M');
Write('N = ');
readln(N);
Write('M = ');
readln(M);

if (M>1000) or (N>1000) or (M<1) or (N<1)
then  
Writeln('Ошибка, указанные значения выходят за пределы матрицы')   else   
        Begin      
 Writeln('Введите элементы матрицы');      

k:=0; 
 for i:=1 to N do     
  for j:=1 to M do     
    Begin     
      readln(mas[i,j]);       
      if (mas[i,j] mod 2 = 0) then k:=k+1;     
    end; 
  
    Writeln();   
    Writeln('Исходная матрица');
   
   for i:=1 to N do   
     Begin     
       for j:=1 to M do     
          Begin     
             Write(mas[i,j], ' ')     
           end;     
      Writeln();   
     end;         

Writeln();   
Writeln('Количество четных элементов = ',k);      
 end;

readln;
end.

#include <iostream>

#include <stdio.h>

#include <locale.h>

#include <ctime>

int main() {

setlocale(LC_ALL, "Rus");

system("chcp 1251");

srand(time(NULL));

int A[10], even_amount = 0, n;

for (int i = 0; i < 10; i++) {

 A[i] = rand() % 100;

 printf("%d ", A[i]);

 }

printf("\n\nС какого элемента считать?\n");

scanf_s("%d", &n);

while (n > 10 or n < 1) {

 printf("\nВ массиве всего 10 элементов, введите число от 1 до 10 включительно\n");

 scanf_s("%d", &n);

 }

for (int i = n - 1; i < 10; i++) {

 if (A[i] % 2 == 0) {

  even_amount += 1;

 }

}

printf("\nКоличество четных чисел начиная с %d места равно %d\n", n, even_amount);

system("pause");

return(0);

}