littletest42.out

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

unit littletest42;

interface

implementation

uses Dialogs;

procedure foo(pi: integer);
label
  10, 20, bar, 42;
begin
  if pi > 12 then
    goto 10;
  ShowMessage('foo');
  goto bar;
  10:
    ShowMessage('10');
  bar:
  20: ;
end;

end.