program timViTriSoLonNhat;

var
  n, i, max, vtMax: integer;
  a: array[1..100] of integer;

begin
  write('Nhap vao so luong phan tu cua day: ');
  readln(n);

  // Nhập từng phần tử của dãy và tìm số lớn nhất
  max := -32767; // Giá trị số nguyên nhỏ nhất
  for i := 1 to n do
  begin
    write('Nhap vao phan tu thu ', i, ': ');
    readln(a[i]);

    // Kiểm tra số lớn nhất
    if a[i] > max then
    begin
      max := a[i];
      vtMax := i;
    end;
  end;

  writeln('So lon nhat trong day la: ', max);
  writeln('Vi tri cua so lon nhat la: ', vtMax);
  
  readln;
end.