littletest7.out

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

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.