用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.