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