Составить на алгоритмическом языке PASCAL программу вычисления значений функции: Z = ( x² - 4x + 8,1)d Пределы изменения х: [0;1] Шаг в цикле: 0,07 Используемый оператор в цикле: FOR

Так... Тут не получится включительно 1, ибо шаг не делится нацело... Но 0,98) Вот, лови))

var
  Z, x, d: real;
  i: integer;

begin
  writeln(Enter d:);
  readln(d);
 
  for i := 0 to trunc(1 / 0.07) do
  begin
    x := 0.07 * i;
    Z := (sqr(x) - 4 * x + 8.1) * d;
    writeln(Z(, x:1:2, , , d, ) = , Z);
  end;
end.