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

φ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.