pl0.txt

来自「pl0的编译程序」· 文本 代码 · 共 16 行

const a=10; 
var b,c;
procedure p;
	begin
		c:=b+a
	end;
begin 
	read(b);
	while b#0 do
		begin
			call p;
			write(2*c);
			read(b)
		end
end.