function f=fibc(n)
x=0; %a sorozat 0-adik eleme
y=1; %a sorozat elso elme
while x+y<=n %a sorozat következo eleme kisebb, mint n
    z=x+y;  %összeadjuk az elözo két elemet
    %elokészülünk a következo elem kiszámításához
    x=y; %a kettovel ezelotti elemet egyel nagyobb indexu elemere cseréljük
    y=z; %az egyel ezelotti elmet a most kiszámított elemre cseréljük
end
f=x+y; %az elso n-nél nagyobb elem