program oken;
uses crt;
var a: array [1..10] of integer;
i,tich:longint;
begin
clrscr;
writeln('nhap 10 so mang');
for i:=1 to 10 do
begin
write('a[',i']: '); readln(a[i]);
tich:=tich*a[i];
end;
writeln('Tich cua 10 phan tu mang: ',tich);
readln;
end.