Создать два динамических массива, заполнить их рандомно. На экран выдать произведение соответствующих элементов массивов. (Написать на Pascal)

begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,-99,99); a.Println;
  var b:=ArrRandom(n,-99,99); b.Println;
  a.Zip(b,(x,y)->x*y).Println
end.


n= 13
-33 -22 -61 -21 24 -40 -30 77 46 19 -60 2 53
-99 27 90 -13 -17 19 76 -85 -18 4 91 -93 -59
3267 -594 -5490 273 -408 -760 -2280 -6545 -828 76 -5460 -186 -3127