y=x^3+x*4 для x принадлежит [a,d] с шагом k

PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018

Внимание! Если программка не работает, обновите версию!

begin

 var (a,d,k):=ReadReal3('Введите a, d, k');

 for var i:=0 to Trunc((d-a)/k) do

 begin

   var x:=a+i*k;

   var y:=x**3+4*Абс(x);

   Writeln(x:30:15,y:30:15)

 end

end.