Составить программу по блок-схеме

function F(x:real):real;
begin
 F:=x*x*x + 6*(x*x) + 2*x - 7
end;
var a,b,x,k,h:real;
begin
k:=0;
x:=-1;
b:=3;
h:=0.2;
repeat
  x := x + h;
  k := k + 1;
  writeln('k = ', k, '  x = ', x, ' f(x) = ', F(x));
until x >= b;
end.

if F(a)*F(b)<0 then

function F(x: real): real;
  begin
    F := x * x * x + 6 * x * x + 2 * x - 7
  end;
 
const
  xn = -1;
  xk = 3;
  h = 0.2;
var
  a, b: real;
  k: integer;
begin
  k := 0;
  a := xn;
  repeat
    b := a + h;
    if F(a) * F(b) <= 0 then
      begin
        k := k + 1;
        writeln('k = ', k, '  a = ', a:0:5, ' b = ', b:0:5)
      end;
    a := b
  until b >= xk;
  readln
end.

function F(x: real): real;
  begin
    F := x * x * x + 6 * x * x + 2 * x - 7
  end;
 
const
  xn = -1;
  xk = 3;
  h = 0.2;
var
  a, b: real;
  k: integer;
begin
  k := 0;
  a := xn;
  repeat
    b := a + h;
    k := k + 1;
    if F(a) * F(b) <= 0 then writeln('k = ', k, '  a = ', a:0:5, ' b = ', b:0:5);
    a := b
  until b >= xk;
  readln
end.