Program Example;
begin
  var a : real;
  var b : real;
  var eps : real;
  var z : real;
  var d : real;
  writeln('Введите левый конец промежутка (для задачи 1 левый конец должен быть равен -10)');
  readln(a);
  writeln('Введите правый конец промежутка (для задачи 1 правый конец должен быть равен 10)');
  readln(b);
  writeln('Введите точность (для задачи 1 точность должна быть равна 0.0001)');
  readln(eps);
  writeln('Введите удельную плотность дерева (для задачи 1 плотность должна быть равна 0.8)');
  readln(d);

  while (b-a>eps) do begin
      z:=(a+b)/2;
      if (a-Sin(a)-2*3.1415*(1-d))*(z-Sin(z)-2*3.1415*(1-d))>0 then begin
        a:=z
        end
      else begin
        b:=z;
      end
  end;
   writeln('В формуле погружения бруска x =  ', z);

   writeln('Введите радиус бревна (для задачи 1 радиус бревна должен быть равен 0.2)');
   readln(a);
   b:=a+a*Cos(z/2);
   writeln('Ответ к задаче: ', b);
end.