test6.pl

来自「包含“源代码”“文档”“可执行文件（例子）”三个文件夹」· PL 代码 · 共 9 行

var a;
begin
if a=3 then
  begin
    if a=4 then a:=a+1;
    a:=a-1
  end
end.