Viết chương trình cho phép nhập vào mảng A kiểu số nguyên N phần tử ( N không quá 100). Sau đó tính tích tất cả các phần tử có trong mảng A. GIÚP MIK

var a: array[1..100] of integer;

      n, i: byte;

      t: longint;

Begin

    Write(‘n = ‘); readln(n);

    T:=1;

    For i:=1 to n do

       Begin

            Write(‘a[‘, i, ‘] = ‘); readln(a[i]);

            T:=t*a[i];

       End;

    Write(‘tich = ‘, t);

    Readln

End.