function FibNum(f, n: real): real;
begin
// вывод числа Фибоначчи, рассчитанного по формуле Бине:
FibNum:= 1 / Sqrt(5) * (Exp(f * n) - Cos(PI * n) / Exp(f * n));
end;
var
f: real;
a, b, c, cnt, idx: integer;
begin
// расчет константы формулы Бине:
f:= Ln((1 + Sqrt(5)) / 2);
cnt:= 0; idx:= 2;
a:= 0; b:= 1;
repeat
c:= a; a:= b; b:= (c + a) mod 3;
if b = 0 then begin
Inc(cnt);
writeln(cnt:2,' : Fib(', idx + 1, ') = ', FibNum(f, idx))
end;
Inc(idx)
until cnt = 30
end.
ZnVuY3Rpb24gRmliTnVtKGYsIG46IHJlYWwpOiByZWFsOwpiZWdpbgogIC8vINCy0YvQstC+0LQg0YfQuNGB0LvQsCDQpNC40LHQvtC90LDRh9GH0LgsINGA0LDRgdGB0YfQuNGC0LDQvdC90L7Qs9C+INC/0L4g0YTQvtGA0LzRg9C70LUg0JHQuNC90LU6CiAgRmliTnVtOj0gMSAvIFNxcnQoNSkgKiAoRXhwKGYgKiBuKSAtIENvcyhQSSAqIG4pIC8gRXhwKGYgKiBuKSk7CmVuZDsKCnZhcgogIGY6IHJlYWw7CiAgYSwgYiwgYywgY250LCBpZHg6IGludGVnZXI7CgpiZWdpbgogIC8vINGA0LDRgdGH0LXRgiDQutC+0L3RgdGC0LDQvdGC0Ysg0YTQvtGA0LzRg9C70Ysg0JHQuNC90LU6CiAgZjo9IExuKCgxICsgU3FydCg1KSkgLyAyKTsKICBjbnQ6PSAwOyBpZHg6PSAyOwogIGE6PSAwOyBiOj0gMTsKICByZXBlYXQKICAgIGM6PSBhOyBhOj0gYjsgYjo9IChjICsgYSkgbW9kIDM7CiAgICBpZiBiID0gMCB0aGVuIGJlZ2luCiAgICAgIEluYyhjbnQpOwogICAgICB3cml0ZWxuKGNudDoyLCcgOiBGaWIoJywgaWR4ICsgMSwgJykgPSAnLCBGaWJOdW0oZiwgaWR4KSkKICAgIGVuZDsKICAgIEluYyhpZHgpCiAgdW50aWwgY250ID0gMzAKZW5kLg==