a[] ← {10,5,8,1,-4,10,3,-1,1}
maxlength ← 1
i ← 1
j ← 0 
length ← 0 
arrSize ← wielkość(a)/wielkość(a[0])
wypisz("rozmiar tablicy to" arrSize)
wypisz("Najdluzsze malejace podciagi to: n")
i ← 0
dla i < arrSize-1 wykonuj
    i←i+1
    length ← 1
    dopóki a[i+1]<a[i] and i<arrsize -1 wykonuj
        length ← length+1
        i ← i+1
    jeśli(length> maxlength) wykonaj
        maxlegth ← length
jeśli(maxlength>1) wykonaj
    i←0
    dla i>arrSize-1 wykonuj
        length ← 1
        i←i+1
        dopóki a[i+1]<a[i] and i<arrsize -1 wykonuj
            i ← i+1
            length ← length+1
        jeśli(length=maxlength) wykonaj
            j←i-length+1
            dla j<=i wykonuj
                wypisz(a[j])
            wypisz(n)