Последовательность фибоначчи определяется следующим образом: первые два члена последовательности равны 1,а каждый следующий равен сумме двух предыдущих.то есть числами фибоначчи являются 1,1,2,3,5,8, .определить n-е по порядку числа фибоначчи. решить в pascal )

var a:array[0..2] of integer;

   i, n: integer;

begin

   a[1]:=1;

   a[2]:=1;

   readln(n);

   for i:=3 to n do

      a[i mod 3] := a[(i-1) mod 3] + a[(i-2) mod 3];

   writeln(a[n mod 3])

end.

Program z;

var A:array [1..1000] of integer;

      n,i:integer;

Begin

readln(n);

A[1]:=1;

A[2]:=1;

for i:=3 to n do

      A[i]:=A[i-1]+A[i-2];

writeln(A[n]);

end.