Дан массив A[N], требуется умножить значения элементов этого массива на 4, если А[i]>0, или на 7, если А[i]<=0

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;  a.Transform(x->x>0?x*4:x*7); a.Printlnend.Примерn= 13-9 23 -29 -36 -10 -20 9 28 26 34 -41 -2 45-63 92 -203 -252 -70 -140 36 112 104 136 -287 -14 180