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

begin
  var a:=ReadArrReal('Введите через пробел три числа',3);
  a.Select(x-> sqr(sqr(x))*(x<0 ? x : 1.0)).Println
end.


Введите через пробел три числа 23.5 -18.6 6.2
304980.0625 -2226202.78176 1477.6336