testp.txt

PL/0语言编译器的实现

	const a=5;
	var b,c;
	procedure p;
		var d;
		begin
			d:=100;
			c:=d/a;
			c:=c+b;
		end;
	begin
		read (b);
		while b#0 do
			begin
				call p;
				write(c);
				read(b);
			end;
	end.