Помогите, правильно ли написана программа ?

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(2,1):0:3);

readln

end.

Вот Задание к задаче:


Вычислить значение выражения, используя рекурсивный метод