Лаба 1.3

program Project3;

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

uses
   System.SysUtils, Math;

var
   E, x, fun, delta: real;
   i, k: integer;
   IsCorrect: Boolean;

begin
   IsCorrect := False;
   Writeln('Введите точность E (0<E<1)');
   repeat
      try
         readln(E);
         if (E < 1) and (E > 0) then
            IsCorrect := TRUE
         else
            Writeln('Введите число меньшее 1 и больше 0');
      except
         Writeln('Введите число ');
      end;
   until (IsCorrect);
   IsCorrect := False;
   Writeln('Введите Х');
   repeat
      try
         readln(x);
         IsCorrect := TRUE;
      except
         Writeln('Введите число ');
      end;
   until (IsCorrect);
   fun := Tan(1.5773 * x) / 2.3041;
   delta := fun - x;
   x := fun;
   While delta > E do
   begin
      fun := Tan(1.5773 * x) / 2.3041;
      delta := fun - x;
      x := fun;
   end;
   Writeln('Корень уравнения равен ', x:7:5);
   readln(x);

end.