program qwe;
 const
 n=10;
 var
 a: array [1..N] of integer;
 i,s:integer;
 begin
  randomize;
  for i:=1 to n do begin
   a[i]:=random(10) ;
   writeln (a[i]);
   end;
  I:=1;
  s:=1;
  while I <=n do begin
   s:=s*a[i];
   i:=i+2;
  end;
 writeln ('s=',s);
end.