Даны два массива,сформированных случайным образом.Составить программу,которая находит произведение минимальных элементовмассивов.

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var b:=ArrRandom(ReadInteger('n='),-30,75); b.Println;
  Writeln('Произведение минимальных: ',a.Min*b.Min)
end.


n= 10
-27 -31 -45 -21 -38 -13 -6 -29 30 4
n= 15
35 49 57 60 60 54 42 43 14 -28 37 4 8 -15 58
Произведение минимальных: 1260