test3.pl

来自「该包中包含一个pl0文法要求和根据此文法编写的编译器」· PL 代码 · 共 26 行

test2.pl
const a=45,b=27;
var x,y,g,m;
procedure swap;
var temp;
begin
	temp:=x;
	x:=y;
	y:=temp
end;
procedure mod;
	x:=x-x/y*y;
begin
	x:=a;
	y:=b;
	call mod;
	while x<>0 do
	begin
		call swap;
		call mod
	end;
	g:=y;
	m:=a*b/g;
	write(g,m)
end.