a.txt

来自「基于控制台的词法分析器」· 文本 代码 · 共 18 行

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 .

!?