num.pl0

PL0的一个编译器

const a=45,b=27;
var x,y,g,m;



procedure mod;
x:=x-x/y*y;
begin
	x:=a; y:=b;
	
	g:=y;
	m:=a*b/g;
	write(g,m)
end.