READ
RISULTATO==FALSE
i==1
A[0]==max
WHILE (A[0]>A[i]) DO
   i==i+1
END WHILE
Z==A[i]
i==0
c==0
w<M
WHILE (Z>N[i]) DO
   N[i]==i+1
   IF (N[i]>N-1) THEN
      M[i]==i+1
   END IF
   IF (N[i]>Z) THEN
      c==c+1
   END IF
END WHILE
IF (c=w) THEN
   RISULTATO==TRUE
END IF
PRINT RISULTATO