program5.txt

来自「编译原理课程设计大作业PL0文法简易编译器」· 文本 代码 · 共 9 行

var a:integer;
begin
      while a<0 do
      begin
           read(a);
           write(a)
      end;
end.