input.txt

词法分析,里面有一个bug,")"后面不能跟其他符号,但是这个更像是自己作的,程序很简单,我自己做了大修改,加了很多注释

program fibonacci; 
		var m:integer; 
		function fib (n:integer) :integer; 
			begin 
			if n=0 then fib:=0 
				else if n=1 then fib:=1 
					else fib:= fib(n-1) +fib(n-2) 
                        end; 
		begin 
			read(m) ;
			write(fib(m) )
		end.