помогите сделать рекурсию

[kilogram4ik]

совсем не могу сделать рекурсию .

сам пример будет внизу(конечно если он кому то нужен)

var n:integer;
procedure Show;
var a:real;
begin
for var i:= 1 to n do 
  begin
a:=(sqrt(N+sqrt(N)));
N:=N-1;
writeln(a);
end;
end;
begin
  write('n=');
  readln(n);
  write('N=');
  readln(N);
  show;
end.

[Aleksandr H.]

https://onlinegdb.com/l5CyxT2SN

[kilogram4ik]

kilogram4ik,

Сообщение от Aleksandr H.

https://onlinegdb.com/l5CyxT2SN

спасибо огромное