testendelse.obs

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

unit testendelse;interface implementation var a,b:integer;procedure foo;begin if
(a>b)then begin end else begin end;end;procedure foo2;begin if(a>b)then begin end
else begin end;end;end.