[DIMMON4IK]

Та ну, здесь работы нету

if frac(realvar)>=0.5 then int:=(realvar*2 div 2)+1 else int:=realvar*2 div 2 


Можно вместо (realvar*2 div 2) использовать trunc(realvar), но тогда нужно ставить floating point