用PL0语言求Fibonacci数列前m个中偶数位的数

程序说明：求Fibonacci数列前m个中偶数位的数；

这是编译原理作业，本打算写 求Fibonacci数列前m个数；写了半天，不会写，就放弃了；

程序代码如下：

var n1,n2,m,i;

procedure panduan;

begin

i:=2;

while i<m do

begin

n1:=n1+n2;

n2:=n1+n2;

i:=i+1;

write(n2);

end;

end;

begin

read(m);

n1:=1;

n2:=1;

if m=2 then

write(n1,n2);

if m>2 then

write(n1,n2);

call panduan;

End.