на числа Фибоначчи, вайл репит

[Ananim-Pbl6ak]

Определить, минимальное количество чисел Фибоначчи, на-чиная с F0, которые нужно вычесть из некоторого наперед заданного А, чтобы результат стал меньше 0,05А

Числа Фибоначчи определяются формулами F0=F1=1 Fn=Fn-1+Fn-2 n=2. 3...

[Ananim-Pbl6ak]

ребят каму не сложно помогите пожалуйста

[Tkirill]

uses crt;
var
f0,f1,f2,kol,a,b:integer;
begin
clrscr;
write(' vvedite A -> ');
readln(a);
writeln;
writeln;
b:=a;
kol:=0;
f1:=1;
f0:=1;
while b>0.05*a do
begin
b:=b-f0;
f2:=f1+f0;
f0:=f1;
f1:=f2;
inc(kol);
end;
writeln;
writeln(kol);
readln;
end.