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.
Яндекс