num.pl0

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

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.