function Tablica(N);
    /*Proszę napisać algorytm, który dla dowolnej tablicy jednowymiarowej o elementach będących liczbami całkowitymi, wyznacza rozmiar najdłuższej o liczności parzystej, ciągłej podtablicy stałej (tzn. zawierającej identyczne wartości w kolejnych elementach). Np. dla tablicy {1, 8, 1, 1, 5, 4,4, 4} taka podtablica jest {1, 1} i jej długość wynosi 2. Jest również podtablica stała {4, 4, 4} o większym rozmiarze, ale jej liczność wynosi 3 i jest liczbą nieparzysta.*/
    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