program Bai1;

var
  a: array[1..50] of integer;
  n, i, sum, max, pos: integer;

begin
  // Nhập số lượng phần tử và dãy số
  write('Nhap so luong phan tu (toi da 50): ');
  readln(n);
  writeln('Nhap day so:');
  for i := 1 to n do
  begin
    write('a[', i, ']= ');
    readln(a[i]);
  end;
  
  // In ra dãy số vừa nhập
  writeln('Day so vua nhap la:');
  for i := 1 to n do
    write(a[i],' ');
  
  // Tính tổng các phần tử của dãy số
  sum := 0;
  for i := 1 to n do
    sum := sum + a[i];
  writeln('Tong cac phan tu cua day so la: ', sum);
  
  // Tìm phần tử lớn nhất và vị trí của nó
  max := a[1];
  pos := 1;
  for i := 2 to n do
    if a[i] > max then
    begin
      max := a[i];
      pos := i;
    end;
  writeln('Phan tu lon nhat cua day so la: ', max);
  writeln('No nam o vi tri thu ', pos);
  
  readln;
end.