program szorzat;
var a:array [1..10] of integer;
    i: integer;
    prod: longword;
begin
  randomize;
  prod:=1;
  for i:=1 to 10 do
  begin
    a[i]:=random(30);
    writeln('a[',i,']= ',a[i]);
    prod:=prod*a[i];
  end;
  writeln('szorzat = ',prod);
  readln;
end.