littletest49.obs

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

unit littletest49;interface implementation function foo:integer;begin result:=random
(10);end;procedure bar;label gtarget;begin try if foo>3 then goto gtarget;gtarget
:finally foo;end;end;procedure fish;label gtarget;begin bar;try if foo>3 then goto
gtarget;gtarget:except bar;end;end;end.