program szorzas;
const n=8;
var i, p: integer;
    a: array [1..n] of integer;
begin
  p:=1;
  for i:= 1 to n do
  begin
    write(' a[',i,']='); readln(a[i]);
    p:=p*a[i];
  end;
  writeln('A tomb elemeinek szorzata: ',p);
  readln;
end.