program  Project2;

 {$APPTYPE CONSOLE} 

 uses 
  math,
  System;

 const 
  DELTA_X =  0 . 1 ;   {Ýòî ÿ áàëîâàëñÿ. DELTA_X ñòàâü ìíîãî ìåíüøå. Èíà÷å âàøè êîìïû îõðåíåþò òàê ñ÷èòàòü. Ó ìåíÿ ìàøèíà ìèíóòó äóìàëà.} 
  EPSILON =  0 . 001 ;

 {function - ðàçäåë îïèñàíèÿ ôóíêöèè.
Ñèíòàêñèñ:
function [èìÿ](<ïàðàìåòðû>)[: òèï âîçâðàùàåìîãî ðåçóëüòàòà];
begin
  êîä ôóíêöèè.
end;

ôóíêöèè ìîãóò ïåðåäàâàòüñÿ ïàðàìåòðû. Ìîãóò íå ïåðåäîâàòüñÿ. Ôóíêöèÿ âîçâðàùàåò ðåçóëüòàò.
 ôóíêöèè àâòîìàòè÷åñêè îïðåäåëåíà ïåðåìåííàÿ ñ èìåíåì ôóíêöèè. Ïðèñâàèâàÿ åé ÷òî-òî âîçâðàùàåøü ðåçóëüòàò.
 äàííîé ôóíêöèè âñ¸ âðîäå ïîíÿòíî è ïðîçðà÷íî.
Ïîìèìî ôóíêöèé åñòü åù¸ ïðîöåäóðû. Îòëè÷èå òîëüêî â òîì ÷òî ïðîöåäóðà íå âîçâðàùàåò çíà÷åíèå.
 áîëüøèíñòâå ÿçûêîâ ïðîãðàììèðîâàíèÿ ôóíêöèè è ïðîöåäóðû íå ðàçäåëÿþòñÿ ïîñðåäñòâàì êëþ÷åâûõ ñëîâ.
 òàêèõ ÿçûêàõ îòëè÷èå ëèø â òîì ÷òî â ôóíêöèè ïðîèçâîäèòñÿ ïîäú¸ì êàêîãî-òî çíà÷åíèÿ ïî ñòýêó. Òîåñòü âîçâðàò ðåçóëüòàòà.
procedure è function ÿ âèäåë òîëüêî â ïàñêàëå.

Ôóíêöèÿ òóò îïèñûâàåò ôóíêöèþ èñ çàäàíèÿ.
} 
 function  f(x: real): real;
 begin 
  f := x - sqrt(ln(x +  2 ));
 end ;

 function  fi(x: real): real;   {äåëàåì åù¸ îäíó ôóíêöèþ. Ñì. îïèñàíèå ìåòîäà èòåðàöèé} 
 begin 
  fi := x + f(x);
 end ;

 var 
  x, x1: real;
 begin 
   {Èíòåðâàë èçîëÿöèè òðåáîâàëîñü íàéòè ãðàôè÷åñêè. Ìíå áûëî ëåíü è ÿ íàøîë ÷èñëåííî.
  Åñëè áîèøüñÿ íå îáúÿñíèòü òî óäàëè ýòîò ó÷àñòîê êîäà.} 
  x := - 1 ;
   while  (f(x) * f(x + DELTA_X) >  0 )  AND  (x <  10 )  do  x := x + DELTA_X;
  writeln(x: 1 : 8 , ' ', (abs(fi(fi(x)) - fi(x)) > EPSILON));
  readln;
   while  (abs(fi((fi(x))) - fi(x)) > EPSILON)  do 
   begin 
    readln;
    write(fi(fi(fi(x))): 1 : 8 , ' fi(fi(x)) ', fi(fi(x)): 1 : 8 , ' abs((fi(x)) - fi(fi(x)) ', abs((fi(x)) - fi(fi(x))): 1 : 8 , ' x: ', x: 1 : 8 );
    x := fi(x);
   end ;
  writeln(fi(fi(fi(x))): 1 : 6 , ' ', fi(fi(x)): 1 : 6 , ' ', abs(fi(fi(x)) - fi(x)): 1 : 6 , ' ', x: 1 : 6 , ' ', f(x): 1 : 6 );
  readln;
   { TODO -oUser -cConsole Main : Insert code here } 
 end .