3.32

//3.32
  function f (x:real) : real;
  begin
    f := sqrt(18 + x) + sqrt(16 - x);
  end;

  const
    max = 6;
    min = 8;
    eps = 2e-5;

  var
    x0, x1: real;
    iter: integer;

Begin
  iter := 0;
  x1 := (min + max)/2.0;
  repeat
    writeln(iter, '. x = ', x1:8:5);
    x0 := x1;
    x1 := f(x0);
    iter := iter + 1;
  until abs(x0 - x1) < eps;
  writeln('---------------');
  writeln('Otvet:  ', x1);
  writeln('Iteracij: ', iter);
End.