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.