Паскваль Вычислите n чисел Фибоначи: F1=1; F2=1; … ; Fn=Fn-1+Fn-2, например: F3=F2+F1=1+1=2,F4=2+1=3 b т.д.

var n: longint; function f (n: integer): longint; beginif (n=1) or (n=2) then f: =1 elsef: =f (n-1)+f (n-2); end; beginwrite ("Vvedite poziciu chisla: "); read (n); write ("chislo ryada na dannoy pozicii ravno ",f (n); end.