1.pl0.bak

来自「PL0的一个编译器」· BAK 代码 · 共 28 行

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.