fa1.txt

来自「C语言的pl/0编译器」· 文本 代码 · 共 15 行

input file?inlist object code?0const a=10;
1var   b,c;
1procedure p;
1  begin
3    c:=b+a;
7  end;
8begin
9  read(b);
11  while b#0 do
15    begin
15      call p;
16      write(2*c);
21      read(b)
23    end
23end.