with（combint，fibonacci）：with（numtheory）：nn:=200:T:=数组（1..nn）：
对于i从1到nn，请执行以下操作：
T[i]：=斐波那契（i）：
日期：
对于从1到10的n，do：
ff:=fibonacci（n）：ii:=0：
对于从1到nn-1的p，而（ii=0）do：
当（ii=0）时，对于从p+1到nn-1的q：
f： =T[p]*T[q]-ff^2:x:=sqrt（f）：x1:=squrt（5*f+4）：x2:=squart（5*f-4）：
如果f>0且x=楼层（x）
和x1地板（x1）和x2地板（x2）
然后
ii:=1:printf（“%d%d%d%d\n”，n，x，T[p]，T[q]）：
其他的
图1：
日期：
日期：
日期：
