Составить пользовательскую процедуру или функцию для вычисления n-ого члена последовательности: z1=5; zn=1+3/ zn-1, где n=2,3,4,…k — Pascal(Паскаль)

uses crt;
var n:integer;
function Z(n:integer):real;
begin
if n=1 then Z:=5
else Z:=1+3/Z(n-1);
end;
begin
clrscr;
repeat
write('Введите натуральное число n=');
readln(n);
until n>0;
write('Z(',n,')=',Z(n):0:8);
readln
end.

uses crt;
var n,i:integer;
    zi,zn:real;
begin
clrscr;
repeat
write('Введите натуральное число n=');
readln(n);
until n>0;
zn:=5;
for i:=2 to n do
 begin
  zi:=zn;
  zn:=1+3/zi;
end;
write('Z(',n,')=',zn:0:8);
readln
end.