program VD1;
Var N,i, S: integer;
Var a: array [1..1000] of integer;
Begin
Write (' Ban muon tinh tich cua bao nhieu so? ');
Readln (N);
For i:= 1 to N do
Begin
write (' Nhap so thu ', i);
Readln (a[i] );
End;
S:= 1;
For i:= 1 to N do S:= S* a[i];
Write (' Tich cac so vua nhap la: ', S);
readln;
end.