Ннайти число фиобаначи с номером n

var  a1,a2, n, i:integer;begin

  a1 := 1;

  a2 := 1;  write('n = '); readln(n);

  for i := 2 to n - 1 do

  begin

    a1 := a1 + a2;

    a2 := a1 - a2;

  end;

  writeln(n, ' элемент последовательности Фибоначчи равен ', a1);

end.

var    n: integer;function fibonachi(n: integer): integer;begin    if (n = 1) or (n = 2) then fibonachi := 1    else fibonachi:= fibonachi(n - 1) + fibonachi(n - 2);end;begin    read(n);    writeln('F(', n, ') = ', fibonachi(n));end.

------------------------------------------------------

var    n, i: integer;    a: array [1..3] of longint;begin    read(n);    a[2] := 1;    a[3] := 1;    for i := 3 to n do     begin        a[1] := a[2];        a[2] := a[3];        a[3] := a[2] + a[1];    end;    writeln('F(', n, ') = ', a[3]);end.