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.

Program BTT;
Uses crt;
Var A: array[1..10000] of longint;
    n,i,max: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
        End;

        max:=A[1];
        For i:=1 to n do
                If A[i]>max then max:=A[i];
        Writeln('GTLN: ',max);
        For i:=1 to n do
        Begin
                If A[i]=max then
                Begin
                        Write('Vi tri: ',i);
                        Break;
                End;
        End;
        Readln
End.