Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле

Function Xi(k : Integer) :Real;
  Function X(xi_2,xi_1 : Real; n : Integer) : Real;
  Begin
    If n=k then X:=xi_1/2+xi_2*3/4 else X:=X(xi_1, xi_1/2+xi_2*3/4, n+1);
  End;
Begin
  Xi:=X(0, 5/8 , 3);
End;

uses crt;
const n=5;
 
Function Xi(k:Integer):Real;
Function X(xi2,xi1:Real;n:Integer):Real;
begin
If n=k then X:=xi1/2+xi2*3/4 else X:=X(xi1, xi1/2+xi2*3/4, n+1);
End;
var xi1,xi2:real;
Begin
clrscr;
writeln('введите k');
readln(k);
writeln('введите xi_1');
readln(xi1);
writeln('введите xi_2');
readln(xi2);
 
Begin
  Xi:=X(0, 5/8 , 3);
end;
writeln(xi(k));
readln;
end;
end.

Function Xi(k:Integer):Real;
  Function X(xi2,xi1:Real;n:Integer):Real;
  begin
    If n=k then X:=xi1/2+xi2*3/4 else X:=X(xi1, xi1/2+xi2*3/4, n+1);
  End;
Begin
  Xi:=X(0, 5/8 , 3);
end;
 
var
  k : integer;
 
Begin
  writeln('введите k');
  readln(k);
  writeln(xi(k));
  readln;
end.