program Miejsca_zerowe_Metoda_stycznych;
   {$N+}
   uses crt;
   var x : extended;
function f (x: extended): extended;
   begin
      f :=sin(x);
   end;
begin
   clrScr;
   x := 2;
   repeat
      x:=x-f(x)/(f(x+0.000001)-f(x))*0.000001;
      writeln('x = ',x:22:18,'  f(x) = ',f(x):22:18);
   until (abs(f(x)) < 1e-17);
   readLn;
end.