Program qtruong;
Uses crt;
Var max, n, i: integer;
a:array[1..100] of integer;
Begin
Clrscr;
Write('Nhap n = '); readln(n);
For i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
Max:=a[n];
For i:=n-1 downto 1 if a[i] > max then max:=a[i];
Writeln('GTLN trong day la: ',max);
readln
end.