定義變量
答:數組[1..10]的整數；
I，j，k:整數；
開始
a[1]:= 1；
a[2]:= 2；
a[3]:= 4；
對於i:=4到10 do
a[I]:= a[I-1]+a[I-2]+a[I-3]；
寫(a[10])；
結束。
兔子養殖:
程序兔；
定義變量
a，b，c:數組[1..100]的整數；
I，j，k，t，n:整數；
開始
讀作(n)；
對於i:=1到100 do
開始
a[I]:= 0；b[i]:=0
結束；
a[1]:= 1；b[1]:= 2；
如果n=1，則寫(a[1])
其他
如果n=2，則寫(a[1])
其他
如果n=3，那麽寫(b[2])
其他
開始
對於i:=1到n-3 do
開始
對於j:=1到100 do
開始
if(a[j]& gt；0)或(b[j]& gt；0)那麽c[j]:= a[j]+b[j]；
結束；
對於k:=1到100 do
如果c[k]& gt；9然後開始
c[k+1]:= c[k]div 10+c[k+1]；
c[k]:= c[k]mod 10；
結束；
對於t:=1到100 do
開始
a[t]:= b[t]；
b[t]:= c[t]；
結束；
結束；
while(c[j]= 0)do dec(j)；
for I:= j down to 1 do write(c[I])；
結束；
結束。
{高精度}