1. На отрезке [0; 2] с шагом 0,2 протабулировать функцию: 0,25 х3+х-1,2502

program zz1;

var x, y:real; / / задаем переменные не целого типа

begin

x:=0;

while x < = 2 do / / организуем цикл, в котором переберем все числа от нуля до двух

begin

y:=0.25 * x * x * x + x - 1.2502; / / вычисляем значение по заданной формуле

writeln (' для ', x, ' вычисленное значение y = ', y:5:2); / / выводим ответ в столбец в формате пять знаков для всего числа и два знака после точки

x:=x + 0.2; / / увеличиваем х на шаг

end;

end.