Дан массив А вещественного типа, содержащий 20 положительных и отрицательных частей.Отыскать

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

begin
  var a:=ArrRandom(20,-99,99).Select(k-gt;k/10).ToArray; a.Println;
  Writeln('Сумма квадратов частей: ',a.Select(x-gt;x*x).Sum)
end.

Пример
-6.7 -6.9 -1.8 7 6.6 6 -8.5 -7.8 6.7 -1.6 -9.3 -4.5 5.9 -4.6 -3.6 -0.2 2.1 4.7 7.5 -5.7
Сумма квадратов частей: 695.79