program Min;

var
	vector: array[0..63] of integer;
	size: integer;
	result: integer;
	i: integer;

function min (size: integer;
              vector: array of integer) : integer;
var
	temp_min: integer;
	j: integer;
begin
	for j := 0 to (size - 1) do
		if (j = 0) then
			temp_min := vector[j]
		else
			if (temp_min > vector[j]) then
				temp_min := vector[j];
	min := temp_min;
end;

begin
	write('Enter a vector size: ');
	readln(size);

	for i := 0 to (size - 1) do
		read(vector[i]);

	result := min (size, vector);

	write('Enter b vector size: ');
	readln(size);

	for i := 0 to (size - 1) do
		read(vector[i]);

	result := min (size, vector) + result;

	writeln('min(a) + min(b) = ', result);
end.