program TinhTichMangA;
var
  A: array[1..50] of integer; // khai báo mảng A có tối đa 50 phần tử
  N, i, Tich: integer;
begin
  write('Nhap so phan tu cua mang A: ');
  readln(N); // nhập số phần tử của mảng
  Tich := 1; // khởi tạo tích ban đầu bằng 1
  // nhập các phần tử của mảng A
  for i := 1 to N do
  begin
    write('Nhap phan tu A[', i, ']: ');
    readln(A[i]);
    Tich := Tich * A[i]; // tính tích ngay khi nhập giá trị vào mảng
  end;
  writeln('Tich cac phan tu trong mang A la: ', Tich); // xuất kết quả tính được
end.