program BaiTapMang;

uses crt;

const
  MAX_SIZE = 50;

var
  A: array[1..MAX_SIZE] of integer;
  N, i, prod, max: integer;

begin
  // Yêu cầu nhập số phần tử của mảng A
  write('Nhap so phan tu N: ');
  readln(N);

  // Nhập giá trị cho từng phần tử của mảng A
  for i := 1 to N do begin
    write('Nhap phan tu A[', i, ']: ');
    readln(A[i]);
  end;

  // Tính tích các phần tử trong mảng A
  prod := 1;
  for i := 1 to N do begin
    prod := prod * A[i];
  end;

  // Tìm phần tử lớn nhất trong mảng A
  max := A[1];
  for i := 2 to N do begin
    if A[i] > max then begin
      max := A[i];
    end;
  end;

  // In kết quả ra màn hình theo yêu cầu
  writeln('Program BaiTapMang - So may lop');
  writeln('Mang A co ', N, ' phan tu');
  write('A = [');
  for i := 1 to N-1 do begin
    write(A[i], ', ');
  end;
  writeln(A[N], ']');
  writeln('Tich cac phan tu trong mang A la: ', prod);
  writeln('Phan tu lon nhat trong mang A la: ', max);

  readln;
end.