function Tablica(N);
    array=int(2*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 & ( modulo (l,2) ~= 0) then
                 l = i
            end
         else
             i=1
             k=k+1
         end
         
   end
   disp(array)
   disp(l)
endfunction