test3.pl

实现pl0编译 能够实现简单的编译 满足编译原理的要求

const a=45,b=27;
var x,y,g,m:integer;
procedure swap;
var temp:integer; tem:integer;te:integer;
begin
	temp:=x;
	x:=y;
	y:=temp
end
begin
read(x,y);
swap;
write(x,y)
end.