FUNCTION FIBO(n:integer):boolean; Var f1, f2, f:integer; Begin F1:=0; F2:=1; F:=f1+f2; While f<n do Begin F1:=f2; F2:=f; F:=f1+f2; End; If f=n then FIBO:=true Else FIBO:=false; End;
program fibonaci; uses crt; var i,n,kt:longint;a:array[1..1000]of longint; begin clrscr; write('n=');readln(n); a[1]:=1; a[2]:=1; for i:=3 to 46 do a[i]:=a[i-1]+a[i-2]; for i:=1 to 46 do if(a[i]=n)then kt:=1; if(kt=1)then writeln('so ',n,' co trong day fibonaci')else writeln('so ',n,' ko co trong day fibonaci'); readln; end.
