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