function Tablica(N);
    array=int(N*rand(1,N))
    k = 2           // 
    l = 1           // dlugosc podtablicy
    i = 1           //
    while k <= N do
        
        if array(k-1)==array(k) then
            
            k = k+1
            i = i+1
            
                if i > l && ( modulo (i,2) == 0) then
                  
                     l = i
                    end
         else
             i=1
             k=k+1
         end
   end
   disp(array)
   disp(l)
endfunction