function Tablica(N);
    array=int(2*rand(1,N))  // funkcja generujaca losowa tablice
    k = 1                   // pomocnicza sprawdzajaca czy sasiednie elementy sa takie same
    l = 0                   // zmienna zawierajaca dlugosc podtablicy o licznosci parzystej
    i = 1                   // pomocnicza zliczajaca takie same sasiednie wartosci
    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
         
    end
    if (modulo (l,2) ~= 0)  // modulo różne od 0
    l = l-1
    end
    disp(array)
    disp(l)
endfunction