pl0source1.txt

c++语言编写的PL0语言的语法分析程序

const a=10;
var b,c;
procedure p;
	begin
	    c:=b+a;
	begin
	    b:=c+a;
	    read(c)
	end
	end;
begin
	read(b);
	call p;
if a>b then
	write(b);
         write(c)
end.