Здравствуйте. помогите решить задачу 40 с помощью Pascal.

PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018Внимание! Если программа не работает, обновите версию!begin  var D:=ArrRandom(ReadInteger('n='),-5,10); D.Println;  D.Where(t->not t.Between(2,7)).Sum.Printlnend.Примерn= 159 -2 8 7 -3 -1 -1 6 7 10 5 0 2 6 -218