X,Y, Z: Integer; If N=1 Then p:=a[1 End else Y:=P(A, Z, N) N:=X If A[N]>=Y Then Begi End elseX,Y,Z:Integer; Begin If N=1 Then Begin m :=1; p:=a[1] End Else Begin X:=N; N:=N-1; Y:=P(A,Z,N); N:=X; If A[N]>=Y Then Begin M :=N; P:=A[N] End Else