program Lab1_3;

uses
    System.SysUtils;
var
    X0, X1, E : Double;
    IsCorrect : Boolean;

begin
    repeat
        IsCorrect:= True;
        Writeln('Введите необходимую точность');
        try
            Readln(E);
        except
            Writeln('Точность должна быть числом');
            IsCorrect:= False;
        end;
        if (E < 0) and  IsCorrect then
        begin
            Writeln('Точность должна быть больше 0') ;
            IsCorrect:= False;
        end;
      until IsCorrect;
    repeat
        IsCorrect:= True;
        Writeln('Введите первое приближение');
        try
            Readln(X1);
        except
            Writeln('Первое приближение должно быть числом');
            IsCorrect:= False;
        end;
    until IsCorrect;
    repeat
        X0 := X1;
        X1 := 9.33*Sin(6.977*X0)/7.25;
    until Abs(X0 - X1) < E;
    Writeln('Корень равен ', X1:10:4);
    readln;
end.