uses crt;
var A:array[1..10] of integer;
B:array[1..10] of integer;
i,n,min:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('Nhap phan tu thu ',i,' cua mang A: ');
readln(A[i]);
end;
min:=A[1];
for i:=2 to 10 do if A[i]<min then min:=A[i];
for i:=1 to 10 do
begin
write('Nhap phan tu thu ',i,' cua mang B: ');
readln(B[i]);
if B[i]<min then min:=B[i];
end;
write('Gia tri nho nhat cua 2 mang la: ',min);
readln
end.