littletest42.obs

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

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.