var a:array[1..10000000] of  longint;
i,j:longint;
n:longint;
kt:boolean;
x,s:ansistring;
begin
read(n);
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
begin
kt:=true;
for j:=i+1 to n do
if a[i]<=a[j] then kt:=false;
if (kt) then
begin
str(a[i],x);
s:=s+x+' ';
END;
end;
str(a[n],x);
s:=s+x;

WRIte(s);
end.

Program MAX_MIN_AVG;
Uses crt;
Var a:array[1..20] of integer;
i,n,max,min,sum:integer;
Begin
Clrscr;
Writeln('TIM MAX, MIN, AVERAGE CUA MOT DAY SO');
Writeln('---------------------------');
Write('Nhap so phan tu cua day n='); readln(n);
For i:=1 to n do
Begin
      Write('Nhap a[',i,']=');readln(a[i]);
End;
Min:=a[1]; Max:=a[1]; Sum:=0;
For i:=1 to n do
Begin
      If (Min > a[i]) then Min:=a[i];
      If (Max < a[i]) then Max:=a[i];
      Sum :=sum+a[i];
End;
Writeln('Day so vua nhap la: ');
Writeln('-------------------------');
For i:=1 to n do
       Write(a[i]:4);
Writeln;
Writeln('Gia tri lon nhat la:',Max);
Writeln('gia tri nho nhat la:',Min);
Writeln('gia tri trung binh la:',Sum/n:6:2);
Readln;
End. (bạn tham khảo ạ )

#tuandz:)