Напишите программку которая исполняет значение функции y= 1/(x+1)от 0 до 6

Var
   x:integer;
Begin
WriteLn('f(x) = 1/(x+1)');
For x:= 0 to 6 do
    WriteLn('f(',x,') = ',1/(x+1));
End.

Итог работы программы:
f(x) = 1/(x+1)
f(0) = 1
f(1) = 0.5
f(2) = 0.333333333333333
f(3) = 0.25
f(4) = 0.2
f(5) = 0.166666666666667
f(6) = 0.142857142857143

Var i: integer;
begin
  for i:=0 to 6 do
  writeln('y(',i,') = ',1/(i+1):4:2);
end.

y(0) = 1.00
y(1) = 0.50
y(2) = 0.33
y(3) = 0.25
y(4) = 0.20
y(5) = 0.17
y(6) = 0.14