var
  a: array[1..100] of integer;
  n, i, max, imax: integer;
begin
  write('Nhap so phan tu cua day: ');
  readln(n);
  for i := 1 to n do
  begin
    write('Nhap a[', i, '] = ');
    readln(a[i]);
  end;
  max := a[1];
  imax := 1;
  for i := 2 to n do
    if a[i] > max then
    begin
      max := a[i];
      imax := i;
    end;
  writeln('Phan tu lon nhat la: ', max, ' tai vi tri: ', imax);
end.