testendelse.out

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

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.