littletest7.obs

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

unit littletest7;interface implementation procedure foo;var libar:integer;begin 
libar:=-100;while libar<-10 do begin end;end;procedure foo2;var libar:integer;begin
libar:=100;while libar>=-1 do begin end;end;end.