program PascalGuru;
uses crt;
 
var x1:array[1..15] of integer;
    x2:array[1..20] of integer;
    i:integer;
    min1,min2:integer;
 
begin
writeln('Vvedite znacenia massiva "X1"');
for i:=1 to 15 do
begin write('X1[',i,']= '); readln(x1[i]);  end;
 
clrscr;
writeln('Vvedite znacenia massiva "X2"');
for i:=1 to 20 do
begin write('X2[',i,']= '); readln(x2[i]);  end;
 
clrscr;
writeln('Vvedenye dannye:');writeln;
 
write('x1: '); for i:=1 to 15 do write(x1[i],' ');
writeln;
write('x2: '); for i:=1 to 20 do write(x2[i],' ');
 
min1:=x1[1];
for i:=2 to 15 do
if x1[i]<min1 then min1:=x1[i];
 
min2:=x2[1];
for i:=2 to 20 do
if x2[i]<min2 then min2:=x2[i];
 
writeln;writeln;
writeln('MIN(x1)= ',min1);
writeln('MIN(x2)= ',min2);
 
readln;
end.