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

[chapotai]

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

Знающие, помогите - так ли будет выглядеть текст задачи в Паскале? у меня работает, но как-то неправильно...

Program zadanie;
uses crt;
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.

[Mad_Cat]

Program zadanie;
uses crt;
Var i, n, : Byte;
a:array [1..100] of Real;
Begin
ReadLn(N);
for i:=1 to N do
Begin
A[i]:=i/(i+1);
Write(A[i]:4:2);
End;
ReadLn
End.

[chapotai]

Вроде работает... Спасибо!