test2.pl

来自「数据结构中编译器的算法」· PL 代码 · 共 30 行

const kkk=3;
var a,b,c,d;


procedure proc;
const kk=3;
begin
	a:=124+2*kk;
	write (a);
end;

procedure p;
begin
	a:=10;
	b:=11;
	c:=12;
	write(a);
	write(b);
	write(c);
	write(a+b-c*2);
end;
begin
	d:=0;
	call proc;
	while d#2 do 
	begin
  		call p;
		d:=d+1;
	end;
end.