Необходимо вычислить значение числа по заданному алгоритму: зашифрованное число - 244 и ключ - 44 1. начало. 2. число заменить на число и вычесть ключ 3. если число > 200 и ключ =44 то 4. число увеличить в 10 раз иначе 5. число уменьшить в 10 раз 6. конец. из этого всего должен получиться ! : -)

244- стало 344 и минус ключ (44) равно 300 и затем разделить на 10 и получится 30.

Var  a: array of integer;             i, n, x, digit: integer;           b1, b2: boolean; begin       readln(n);       setlength(a, n);       for i : = 0 to n - 1 do readln(a[i]);       b1 : = true;       x : = 1;       digit : = x;       while b1 do    begin          if b2 then digit : = x;           inc(x);           b2 : = true;           for i : = 0 to n - 1 do begin              if (abs(a[i]) < x) and (a[i] < > 0) then begin b1 : = false; break; end              else if a[i] mod x < > 0 then begin b2 : = false; break; end        end;       end;       write(digit); end.

Var n,a,i,nn: integer; begin   write('количество двузначных чисел: ');   readln(n);   for i: =1 to n do begin       repeat           write('введите ',i,' число'); readln(a);       until (a> 9) and (a< 100);       if a mod 2 =0 then nn: =nn+1;   end;   writeln('количество четных двухзначных = ',nn); end. тестовое решение: введите 1 число1 введите 1 число23 введите 2 число44 введите 3 число3 введите 3 число32 введите 4 число45 введите 5 число56 количество четных двухзначных = 3