test1.txt

pl0文法编译器

function recursive (a:integer):integer;
begin
	if a>600 then
	begin
		write("a=",a)
	end
	else
	begin
		a := recursive(a*2)
	end;
	recursive := a
end;

begin
	write("in main ",recursive(2));
end.