Вычисление чисел фибоначчи (паскаль) а[1]=1 а[2]=1 а[3]=2 а[4]=3 а[5]=5 а[6]=8

Program Fib;
var a:array [0..100] of integer;
      i,n:integer;
      begin
              a[1]:=1;
              a[2]:=1;
              for i:=3 to 100 do
              begin
              a[i]:=a[i-1]+a[i-2];
               Write('a[',i,'] = ',a[i],'   ');
               end;
      end.