program bt;
uses crt;
var a: array[1..100] of integer;
i, n, tich: integer;
begin
clrscr;
write('Nhap n la:'); readln(n);
for i:=1 to n do begin
write('Nhap a[',i,']=');
readln(a[i]);
end;
tich := 1;
for i:= 1 to n do tich:= tich * a[i];
writeln('Tich cac so co trong day la=', tich:3);
readln
end.
Xin câu trả lời hay nhất ạ :3