Заполнить массив а [1: 10]; а [1]=1 а [2]=2. каждый следующий элемент определяется из отношения а [n]=(a [n-1] +a[n-2])/n. вывести получившуюся последовательность на экран. в паскале

Const
   N = 10;
Var
   A:array[1..N] of real;
   i:integer;
Begin
A[1]:=1;
A[2]:=2;
For i:= 3 to N do
    A[i]:=(A[i-1]+A[i-2])/i;
For i:= 1 to N do
    Write(A[i]:0:3,' ')
End.

1.000 2.000 1.000 0.750 0.350 0.183 0.076 0.032 0.012 0.004