подсчитать сумму квадратов отрицательных элементов одномерного массива вещественных чисел. Паскаль.

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ReadArrReal('Вводите:',ReadInteger('n='));  Writeln('S=',a.Where(x->x<0).Select(x->x*x).Sum)end.Примерn= 5Вводите: 12 -5 0 -7.5 9S=81.25