i:=1 нц пока i<=N и ... i:=i+1 кц
M:=X[1] нц для k от 2 до N если ... то M := X[k] все кц
M:=1 нц для k от 2 до N если X[k]>X[M] то ... все кц
p := X[a] ... X[b] := p
nR:=0 нц для k от 1 до N если X[k]=R то ... выход все кц
нц для i от 1 до ... c:=X[i] X[i]:=X[N+1-i] X[N+1-i]:=c кц
c:=X[N] нц для k от N до 2 шаг -1 ... кц X[1]:=c
c:=1 нц для k от 1 до N если A[k]<0 то ... c:=c+1 все кц