PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
Range(5,ReadInteger('b='),5)
.ForEach(x->Writeln(x:3,7*x**3+2/3*x+Sqrt(x)-4:25:13))
end.
Пример
b= 24
5 876.5694013108330
10 7005.8289443268400
15 23634.8729833462000
20 56013.8054692883000