Рекурсия на Паскале

[gronet]

люди помогите решить никак не получается...
вот задачи:
Используя рекурсивную функцию, для заданного натурального N и вещественного x (x>0) вычислить значение выражения:


и вот вторая
Написать рекурсивную функцию для расчета степени n вещественного числа a (n – натуральное число).

вот код по первой который у меня получился:

program min;
uses crt;
var n : integer;
     x:real;
function MySum(x : real) : real;
var m:integer;
t:real;
begin

   if n=1 then MySum := sqrt(x)
   else
   begin
   n:=n-1;
   MySum := sqrt(x + MySum(x));
   t:=MySum(x);
   end;
end;

begin
clrscr;
 N := 3;
 x:=1;
 WriteLn( 'MySum = ',MySum(x) );
end.

по второй понятия не имею что делать....

[s-andriano]

Не верю.

Вторая программа проще первой и, кроме того, может быть элементарно получена ее переделкой.
Либо Вы знаете, как решить вторую задачу, либо первую сделали не Вы.

Подозреваю, что Вам нужно решение ТОЛЬКО второй задачи, но, зная, что без кода в первом сообщении вряд ли помогут, Вы нашли "левую" задачу - условие вместе с решением - и добавили в пост, чтобы создавалось впечатление, будто вы сами что-то сделали.