主题：[原创]PEL版斐波那契数列

runmode:1;

input:length(20);

num1:=1;
num2:=1;
num3:=0;

if length=1 then begin
 msgout(1,'1');
end else begin
 msgout(1,'1');
 msgout(1,'1');
 for i=0 to length-3 do begin
  num3:=num1+num2;
  msgout(1,numtostr(num3,0));
  num1:=num2;
  num2:=num3;
 end
end