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*Abs(x);
Writeln(x:30:15,y:30:15)
end
end.