program Project3;

{$APPTYPE CONSOLE}
{$R *.res}

uses
   System.SysUtils, Math;
var
   Eps, X, Fun, Delta: Double;
   IsCorrect: Boolean;
const
   Error: string = 'Ошибка ввода! Введите ЧИСЛО большее 0, но меньшее 1';
   ErrorX: string = 'Ошибка ввода! Введите число (от -1000000 до 1000000)';
begin
   IsCorrect := False;
   Writeln('Введите точность вычислений Eps (0<Eps<1)');
   repeat
      try
         Readln(Eps);
         if (Eps > 0) and (Eps < 1) then
            IsCorrect := TRUE
         else
            Writeln(Error);
      except
         Writeln(Error);
      end;
   until (IsCorrect);
   IsCorrect := False;
   Writeln('Введите число Х (от -1000000 до 1000000)');
   repeat
      try
         Readln(X);
         if (X > -1000001) and (X < 1000001) then
            IsCorrect := TRUE
         else
            Writeln(ErrorX);
      except
         Writeln(ErrorX);
      end;
   until (IsCorrect);
   Delta := 1;
   While Delta > Eps do
   begin
      Fun := Tan(1.5773 * X) / 2.3041;
      Delta := Fun - X;
      X := Fun;
   end;
   Writeln('Корень уравнения равен ', X:7:5);
   readln(X);
end.