testemptycase.out

来自「格式化源码的最新板」· OUT 代码 · 共 30 行

unit testemptycase;

interface

implementation

procedure monkey(const pi: integer);
const
  krukolibidinous = 12;
begin
  case pi of
    1: ;
    2: ;
    3: ;
    krukolibidinous:
    else
    begin
    end;
  end;
end;

procedure soy(const pi: integer);
begin
  case pi of
    1:
  end;
end;

end.