program timmax;
var i,n,k: integer;
    A: array [1..100] of longint;
procedure timmax;
var k: integer;
begin
 k:=1;
 for i:=2 to n do
  if A[k]<A[i] then k:=i;
 writeln('phan tu lon nhat la',A[k]);
end;
function timmax ( c,b,d: integer):integer;
 begin
  d:=1;
  for c:=2 to b do
   if A[d]<A[c] then d:=c;
  writeln('phan tu lon nhat la',A[d]);
 end;
begin
 write(' moi nhap so phan tu ');
 readln(n);
 for i:=1 to n do
  begin
   write('A[',i,']=');
   readln(A[i]);
  end;
 timmax;
  timmax(i,n,k);
readln;
end.