program qwer;
var
	q:real;
	i,n:integer;
begin
	write('Введите n');
	read(n);
	q:=sqrt(2);
	for i:=1 to n-1 do
		q:=sqrt(q+2);
	write('Ответ: ');
	write(q:2:10);
	readln;
end.