program p10;
type massiv= array [1..100] of integer;
 
var A1,A2:massiv;
    i,j:integer;
    n1,n2:integer;
 
function pr_nec(m:massiv; n:integer):integer;
var i,j,pr:integer;
begin
pr:=1;
for i:=1 to n do
if odd(m[i]) then pr:=pr*m[i];
pr_nec:=pr;
end;
 
 
begin
writeln('Vvedite PERVYI massiv:');
write('ego razmer "n": '); readln(n1);
for i:=1 to n1 do begin write('A1[',i,']='); readln(A1[i]); end;
writeln('_______________________');
 
writeln('Vvedite VTOROI massiv:');
write('ego razmer "n": '); readln(n2);
for i:=1 to n2 do begin write('A2[',i,']='); readln(A2[i]); end;
writeln('_______________________');
writeln;
writeln('Vi vveli:');
write('A1: '); for i:=1 to n1 do write(A1[i],' '); writeln;
write('A2: '); for i:=1 to n2 do write(A2[i],' '); writeln;
writeln;
writeln('Proizvedenie iz A1= ',pr_nec(A1,n1));
writeln('Proizvedenie iz A2= ',pr_nec(A2,n2));
 
readln;
end.