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

// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программка не работает, обновите версию!

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