Даны три действительных числа. возвести в 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)).Println
end.

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