Напишите программу (в Паскаль) для функции у=х(в кубе)-1 на интервале [-1,3] с шагом 0.2 на трех разных циклах (ДО,ПОКА,ДЛЯ)

Предыдущий
вопрос Следующий
вопрос

Программа на языке Паскаль:

program CubeFunction;
var
x, y: real;
begin
writeln('x | y=x^3-1');
writeln('-------------------');
// Цикл с использованием ДО
x := -1;
while x <= 3 do
begin
y := power(x, 3) - 1;
writeln(x:0:1, ' | ', y:0:1);
x := x + 0.2;
end;
writeln();
writeln('x | y=x^3-1');
writeln('-------------------');
// Цикл с использованием ПОКА
x := -1;
repeat
y := power(x, 3) - 1;
writeln(x:0:1, ' | ', y:0:1);
x := x + 0.2;
until x > 3;
writeln();
writeln('x | y=x^3-1');
writeln('-------------------');
// Цикл с использованием ДЛЯ
for x := -1 to 3 step 0.2 do
begin
y := power(x, 3) - 1;
writeln(x:0:1, ' | ', y:0:1);
end;
end.