Построение блок-схемы алгоритма с внедрением цикла иветвления Вычислите значение

Function y1(var x: double): double;
begin
  if x lt;= 2 then begin
    result := 3*x*cos(x);
  end
  else if x lt;= 8 then begin
    result := 3*x*x*x - x*x;
  end;
end;

function y2(var x: double): double;
begin
  result := x + power(e, -x);
end;

function z(var x: double): double;
begin
  result := power(y1(x), 2)+ y2(x);
end;

begin
  var x : integer;
  var x0: double;
 
  for x := 0 to 8 do begin
    x0 := x;
    writeln(z(x0));
  end;
end.