Сколько чисел Фибоначчи, меньших 32000, являются простыми (первое простое число 2).Написать программу в паскале.(Ответ 8).

//Pascal ABC.NET 3.1 сборка 1219 function fibonachi(i:integer):integer; begin if i=0 then fibonachi:=0 else if i=1 then fibonachi:=1 else fibonachi:=fibonachi(i-1)+fibonachi(i-2); end; Var i,j,k:integer; b:boolean; begin i:=1; while fibonachi(i)<32000 do begin b:=false; for j:=2 to i div 2 do if i mod j=0 then b:=true; if (b=false) and (fibonachi(i)>=2) then inc(k); inc(i); end; writeln(k); end.