test1.txt

来自「pl0文法编译器」· 文本 代码 · 共 16 行

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.