标题：N的序列定义

N的序列如果这样定义的话在金字塔要怎么实现？
此主题相关图片如下：qq图片20160815153221.png

runmode:0;

n:c;

if barpos=1 then n:=1;

if barpos>1 then n:=2*n[barpos-1];
nn:n;