var p,i: integer;
a:array[0..10] of integer;
begin
p:=1;
randomize;
for i:=1 to 10 do
a[i]:=random(10);
write(a[i],' ');
if i mod 2 = 0 then
p:=a[i]*p
end;
writeln;
writeln(p);
end.
var p,i: integer;
a:array[0..10] of integer;
begin
p:=1;
randomize;
for i:=1 to 10 do
begin
a[i]:=random(10);
write(a[i],' ');
if i mod 2 = 0 then
p:=a[i]*p
end;
writeln;
writeln(p);
end.