Ryspekov's Fibonacci sequence formula PASCAL

Procedure zn(x : Integer; Var Result : Integer);
Begin
x:= abs(x);
 x:= x+4;
 x:= x div 5;
 var c:Real=power(2,Double(x));
 x:=Trunc(c);
  x:=x mod 2;
 Result:=x;
End;
Var
  Res : Integer;
  Res2 : Integer;
begin

var b:Integer;
Readln(b);
b:=b-1;
var x:=1;
 var n:=2;
 while n<b do
 begin
 n:=n+1;
 var k:=Trunc(Double(x)*(1+power(5,0.5))/2);
 zn(n mod 3,Res);
 zn(k mod 2,Res2);

x:=k+res*(k mod 2)+(1-res)*res2;
Writeln(x);
 end;
zn(b,res);
 x:=x-res;
 Writeln(x);


end.