testendelse.obs

格式化源码的最新板

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.