Turbo Pascal. Примеры выполнения задач_5 / V41 / V41_N5

Program V41_n5;
uses crt;
var
 X,N    :real;
 i      :byte;
BEGIN
 clrscr;
 X:=1;
 for i:=1 to 6 do begin
  n:=i;
  X:=(n+1)*(X+1/X);
 end;
 writeln('X6 = ',X:0:8);
 readln;
END.