Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
fpc-src / usr / share / fpcsrc / 3.2.0 / tests / test / opt / tdfa6.pp
Size: Mime:
{ %OPT=-Oodfa -Sew -vw -S2}
{ %NORUN}

program tdfa5;

function getmeandinc(var i : longint) : longint;
  begin
    result:=i;
    inc(i);
  end;


function f(i : longint) : longint;
var
  j : longint;
begin
  if getmeandinc(j)>i then
    repeat
      if j>-1 then
        inc(j);
    until j>i;
  result:=i+j;
end;

begin
end.