example1.txt

小小的句法编译器 希望能对大家有帮助

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.