Вычисление чисел Фибоначчи (паскаль)А[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.