Помогите описать рекурсивную функцию прошу( функция вичисления значений функции √(n+√(n-1+..+√1) )

function SumSqrt(N : Integer) : Real;
begin
if N > 1 then SumSqrt := Sqrt(N + SumSqrt(N - 1)
else SumSqrt := 1;
end;