Последовательность Фибоначчи определяется так:

φ0=0, φ1=1, ..., φn=φn-1+φn-2.

По данному числу n определите n-е число Фибоначчи φn.

(паскаль)

Var  i,n,a,b,c:int64;Begin  a:=0;  b:=1;  Write('Введите число n: ');  Readln(n);  Write('Число фибоначи под номером ',n,': ');  Case n of    0:write('0');    1:write('1')  else Begin       for i := 2 to n do  Begin         c:=a+b;         a:=b;         b:=c;      End;      write(c);     End;   End;End.