Viết chương trình nhập vào mảng số nguyên gồm 7 phần tử sau đó in ra màn hình tích giá các phần tử giúp mình đi cần gấp lắm

Program nhapmang;

uses crt;

var n,i,d,j:integer;

a:array[1..7] of integer;

begin

clrscr;

write(‘Nhap so phan tu cua day:’);

readln(n);

while (n>7) do

begin

write(‘nhap lai so phan tu cua day thoa man toi da la 20 phan tu:’);

readln(n);

end;

for i:=1 to n do begin write(‘a[‘,i,’] =’);

readln(a[i]);

end;

for i:=1 to n do begin d:=0;

for j:=1 to a[i] do if a[i] mod j = 0 then d:=d+1;

if d=2 then

writeln(a[i],’ la so nguyen to’);

end;

readln;

end.

@xin ctlhn