example1.txt

来自「小小的句法编译器 希望能对大家有帮助」· 文本 代码 · 共 17 行

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.