var n,i,cs,max:longint;
a: array [1..100] of longint;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
write('A[',i,'] = '); read(a[i]);
writeln;
for i:=n downto 1 do
if a[i]>=max then
begin
max := a[i];
cs:=i;
end;
write('Phan tu lon nhat la: ',a[cs],' vi tri la: ',cs);
readln;
end.