0.txt

来自「C语言编写的PLO源代码」· 文本 代码 · 共 15 行

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.