a[] ← {10,5,8,1,-4, -4,10,3,-1,1}
max_dl ← 1
i ← 1
j ← 0
dl ← 0
n ←10
wypisz("Najdluzsze malejace podciagi to: ")
i ← 0
dla i < n-1 wykonuj
i←i+1
dl ← 1
dopóki a[i+1] max_dl) wykonaj
max_dl ← dl
jeśli(max_dl>1) wykonaj
i←0
dla i>n-1 wykonuj
dl ← 1
i←i+1
dopóki a[i+1]