помогите решить, цикл с параметром, 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 и опять вычисляем корень ... И опять х) В общем, должно получится