Решите задачу на языке программирования

begin

       var a := -4.0;

       var b := 5;

       var h := 1.5;

       while a <= b do

       begin

               var y := 3 * a - power(sin(a), 3);

               writeln('F('+a+') = ' + (y:4:2));

               a += h;

       end;

end.

begin

 var (a, b, h) := (-4.0, 5.0, 1.5); // общее

 // первая

 var x := a;

 while x <= b + h / 2 do

 begin

   var t := Sin(x);

   var y := 3 * x + t * t * t;

   Writeln(x:4:1, y:21:15);

   x += h

 end;

 Writeln;

 // вторая

 x := a; // если отдельная прогркмма, добавить var вначале

 repeat

   var t := Sin(x);

   var y := 3 * x + t * t * t;

   Writeln(x:4:1, y:21:15);

   x += h;

 until x > b + h / 2

end.