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.
