program Roots;

{$mode objfpc}{$H+}

uses
  Classes, SysUtils
  { you can add units after this };

const
  presnost=10e-16;
  maxkroku=10000;
  
function f(x:real):real;
begin
//  f:=sqr(x)-2;
  f:=exp(-1/x)-10e-5;
end;
  
function Bisekce(a,b:real; var k:integer):real;
var
  s:real;
begin
  if f(a)*f(b)>0 then Exit;
  if f(a)>0 then begin s:=a; a:=b; b:=s; end;
  k:=0;
  while (abs(b-a)/(abs(a)+1)>presnost) and (k<maxkroku) do begin
    k:=k+1;
    s:=(a+b)/2;
    if f(s)<=0 then a:=s
    else b:=s;
  end;
  Bisekce:=(a+b)/2;
end;

function Secny(a,b:real; var k:integer):real;
var
  s,s0:real;
begin
  if f(a)*f(b)>0 then Exit;
  if f(a)>0 then begin s:=a; a:=b; b:=s; end;
  k:=1;
  s:=(a*f(b)-b*f(a))/(f(b)-f(a));
  s0:=a;
  while (abs(s-s0)/(abs(s)+1)>presnost) and (k<maxkroku) do begin
    if f(s)<=0 then a:=s
    else b:=s;
    k:=k+1;
    s0:=s;
    s:=(a*f(b)-b*f(a))/(f(b)-f(a));
  end;
  Secny:=s;
end;

var
  k1,k2:integer;
begin
//  Writeln(Bisekce(0,2,k1):18:20,' ',k1,' / ',Secny(0,2,k2):18:20,' ',k2);
  Writeln(Bisekce(presnost,1,k1):18:20,' ',k1,' / ',Secny(presnost,1,k2):18:20,' ',k2);
  Readln;
end.