MAX<-0, apMAX<-1
citeste n
cat timp n!=0 executa:
citeste x
daca x<0 && MAX=0 atunci: MAX<-x
altfel daca x<0 && x>MAX atunci:
MAX <- x
apMAX <- 1
altfel daca x<0 && x=MAX atunci:
apMAX <- apMAX+1
n <- n-1
daca MAX=0 atunci: scrie "NU EXISTA"
altfel scrie MAX, " - ", apMAX