var
a,b:array[1..100]of integer;
an,bn,ak,bk,amin,bmin,i,s:integer;
begin
write('Vvedite dlinu pervogo massiva: ');
readln(an);
write('Vvedite perviy massiv: ');
for i:=1 to an do read(a[i]);
readln;
write('Vvedite dlinu vtorogo massiva: ');
readln(bn);
write('Vvedite vtoroy massiv: ');
for i:=1 to bn do read(b[i]);
readln;
ak:=1;
bk:=1;
amin:=a[1];
bmin:=b[1];
while not ((ak=an) and (bk=bn)) do
begin
if akthen
begin
inc(ak);
if a[ak]then amin:=a[ak];
end;
if bkthen
begin
inc(bk);
if b[bk]then bmin:=b[bk];
end;
end;
s:=amin+bmin;
write('Perviy massiv: ');
for i:=1 to an do write(a[i],' ');
writeln;
write('Vtoroy massiv: ');
for i:=1 to bn do write(b[i],' ');
writeln;
writeln('Summa min elementov massivov: ',s);
readln;