запишите уравнение электролиза раствора CuCl2

Ниже записана программа. Получив на вход число x, эта программа печатает два числа, L и M. Укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 8.
var x, L, M: integer;
   begin 
       readln(x); 
       L:=0; M:=0; 
       while x>0 do 
           begin 
             L:=L+1; 
             if (M<x) and (x mod 2=0) then

                 begin 
                    M:=x mod 10; 
                 end; 
                 x:= x div 10; 
           end; 
           writeln(L); write(M); 
    end.

Дан одномерный массив из целых чисел. Сколько элементов, значения которых равных 0 , и сколько элементов равных 2?