input1

来自「編譯器的虛擬yacc工具」· 代码 · 共 8 行

program test (int,out);
var x: integer;
begin
  x := 3;
  while (x > 0) do
    x := x - 1
end.