RosettaCodeData/Task/Trabb-Pardo-Knuth-algorithm/PascalABC.NET/trabb-pardo-knuth-algorithm.pas

function f(x:real) := Sqrt(x) + 5 *x ** 3;

begin
  var seq := ReadArrInteger(11).Reverse;
  foreach var x in seq do
  begin
    var fx := f(x);
    Println($'f({x}): {fx > 400 ? ''overflow'' : fx.ToString}');
  end;
end.