Составьте программу, с использованием оператора While

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

 begin

   var y := 1 - x + x * x / 2 + 5 * x ** 4;

   Writeln(x:10:7, y:25:15);

   x += h

 end

end.