Помогите по информатике!!!! Пожалуйста! Никак не могу сделать!!!! Задание во вложении. Это не контрольная!!!!

рекурсию лучше разворачивать в цикл

var    k, n, i: integer;    s: real;begin    read(k, n);        for i := n downto 1 do        s := sqrt(i * k + s);        writeln(s);end.