program z3;
const 
P=-100;
I=1;
var
P,I,X,N:real;
begin
readln (X);
if I<=N then begin
readln (X);
if P>=X then I:=I+1 else P>=X;
end;
else writeln ('P=',P);
readln 
end.