Решить, цикл с параметром, s: =√2+√2++√2, n-корней

Var a: real;
    i, k: integer;
begin
    readln(k);
    for i := 1 to k do
        a := sqrt(2 + a);
    writeln(a);
end.

Вот так, насколько я понимаю: вычисляем с конца корень из 2, потом к нему прибавляем 2 и опять вычисляем корень... И опять х) В общем, должно получится