Не уверен, что верно, но вроде работает правильно:
Program num1;
Uses crt;
Var
i,n : integer;
k :real;
Function re(i:integer):real;
begin
if i=1 then re:=sqrt(2) else re:=sqrt(2+re(i-1));
end;
Begin
clrscr;
write('N=');readln(n);
k:=re(n);
writeln('k=',k);
End.