PROGRAM PRIMER2;
CONST N=20;
VAR 1,Œ€•,M: INTEGER;
X: €RRAY [1..N] ŽF INTEGER;
BEGIN
FŽR I:=1 ’Ž N DO
READLN (X[I]);
Œ€•:=X[I] ;
M:=1;

FOR I:=2 ’Ž N DO

IF •[I]>Œ€• ’…N

BEGIN

Œ€•:=•[I];