program lonnhat;
uses crt;
var A:array[1..250] of integer;
      n,i,max,vt:integer;
begin
     clrscr;
     write('Nhap so luong phan tu n: );  readln(n);
     for i:=1 to n do
          begin
               write('A[',i,']= ');   readln(A[i]);
          end;
     max:=A[1];  vt:=1;
     for i:=1 to n do
         if A[i]>max then 
             begin
               max:=A[i];
               vt:=i;
             end;
     write('So lon nhat la: A[',vt,']= ',max);
     readln;
end.