var

A:array[1..20] of integer;

i,n,max:integer;

begin

repeat

write('nhapsophantucuamang');

readln(n);

until (n>=1) and (n<=20);

write('nhapmang');

for i:=1 to n do

begin

write('A[',i,']=');

readln(a[i]);

end;

max:=A[i];

for i:=1 to n do

if max < A[i] then

max:=A[i];

write('solonnhatla:',max);

for i:=1 to n do

if A[i] = max then

write('vitrisolonnhatla:',i);

readln;

end.