freepascal.compiler/docs/refex/ex54.pp

Program Example54;

{ Program to demonstrate the Round function. }

begin
  Writeln (Round(1234.56));  { Prints 1235  }
  Writeln (Round(-1234.56)); { Prints -1235 }
  Writeln (Round(12.3456));  { Prints 12    }
  Writeln (Round(-12.3456)); { Prints -12   }
end.