test3

编译方法实验根据编译器的工作过程

const  a=10;
var  b,c;
procedure p;
	begin
		c:=b+a)-d--;
	end;

begin
	read(b);
	while b#0 a> do1
		begin
			call p;
			write(2*c-d-,6*a));
			read(b);
		end
end.