test2.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;
procedure mod;
g:=y*y;
g:=g/x;
x:=x-g;
begin
x:=a;
y:=b;
mod;
g:=y;
m:=a*b/g;
write(g,m)
end.