in.txt

来自「C语言的pl/0编译器」· 文本 代码 · 共 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.