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