Подскажите правильно ли решена задача ?

uses crt;
function rec(n,k:integer):real;
begin
if k=n then rec:=sqrt(k*k)
else rec:=sqrt(rec(n,k+1)+sqr(k));
end;
begin
clrscr;
write(rec(10,1):0:3);
readln
end.
Вычислить
значение выражения, используя рекурсивный метод. Вот задание к задаче