littletest6.out

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

unit littletest6;

interface

function bar: integer;

implementation

function foo: integer;
begin
  Result := 3;
end;

function bar: integer;
begin
  Result := foo() + 3;
end;

end.