poj1067代码

原题目：http://poj.org/problem?id=1067
由于推导公式过于复杂，在此不标明
为了美观不压行

var a,b,n,i:longint;
begin 
    while not eof do begin 
        readln(a,b);
        n:=abs(a-b);
        if a>b then a:=b;
        if a=trunc((n*(sqrt(5)+1)/2))then writeln('0')
        else  writeln('1');
    end;
end.