Даны три действительных числа. Возвести в 5 степень те из них, значения которых отрицательны, и в четвертую степень не отрицательные.

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ReadArrReal('Введите через пробел три числа',3);  a.Select(x-> sqr(sqr(x))*(x<0 ? x : 1.0)).Printlnend.ПримерВведите через пробел три числа 23.5 -18.6 6.2304980.0625 -2226202.78176 1477.6336