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.