PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018
Внимание! Если программа не работает, обновите версию!
begin
var (a, b, h) := (-5.0, 6.0, ReadReal('Шаг='));
var x := a;
while x <= b do</p>
begin
var y := 1 - x + x * x / 2 + 5 * x ** 4;
Writeln(x:10:7, y:25:15);
x += h
end
end.