// Amira Amaral do Sim - 09001
Program mil;
uses crt;
Var

xv,epsilon,xn :real;
i, iters :integer;

function fiter(x:real):real;
begin
    fiter:=sqrt(sin(x)+1);
end;

Begin
	writeln('Aproximacao da raiz');
	readln(xv);

	writeln('Erro');
	readln(epsilon);

	writeln('Numero de iteracoes');
	readln(iters);

	i := 0;

	for i:=0 to iters do
	begin
		xn := fiter(xv);
		if (abs(xn-xv) <= epsilon) then
        begin
			writeln(xn);
        end
		else
			xv := xn;
	end;
    readln;
End.