niu5.txt

c语言做的pl0编译器

var n,m,p,q;
begin
	read(q);
	read(p);
	n:=1;
	m:=2;
	write(n);
	write(m);
	while p<=q do
		begin
			p:=n+m;
			if p<=q then
			begin
				write(p);
				n:=m;
				m:=p;
			end;
		end;
end.