1.pl0

来自「PL/0语言的词法分析」· PL0 代码 · 共 19 行

const m=7,n=85;
var x,y,z,q,r;

procedure multiply;
var 3 a,b;
begin
	a:=x;b:=y;z:=0;
	while b>0 do
	begin
		if odd b then z:=z+a;
		a:=2*a;b:=b/2;
	end
end;

begin
	x:=m;y:=n;call multiply;
	if 4>8then x:=5;
	q := 52
end.