example5.txt

来自「PL/0语言编译器」· 文本 代码 · 共 9 行

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