program Lab1_3;

{$APPTYPE CONSOLE}

{$R *.res}
uses System.SysUtils;
       var x0, x1, e, iteration : double;
begin
      e := 0.00001;
      x1 := 1;
      repeat
        begin
        iteration := iteration+1;
          x0 := x1;
          // x1 :=(9.33 *Sin(6.977*x0))/7.25; // моя функция
           x1 :=2 - Sin(1/x0);  // функция из видео
          Writeln('Итерация '+floattostr(iteration) + ' x = '+ floattostr(x1));
        end;
      until Abs(x0 - x1) < e;
      readln;
end.