Сформировать последовательность в Паскаль

[chapotai]

1.
Сформировать последовательность, элементы которой вычисляются по формуле a = n/ (n+1) ,
n = 1,2,...,42.

[GetMax]

Var
   i,n:Byte;
   a:Real;
Begin
   Readln(N);
   For i:=1 to N do
   Begin
      A:=i/(i+1);
      Write(A:4:2,' ')
  End;
  Readln
End.

[chapotai]

спасибо за помощь