求數值計算函數,该怎么解决

求數值計算函數
0> X <4.5       X=0

4.5> =X <9.5     X=5

9.5> =X <14.5     X=10

14.5> =X <19.5     X=15

19.5> =X <24.5   X=20
.              
.
.
X> 1000     超出范圍

[解决办法]
function TForm1.JS(X: Double): Integer;
var
A: Integer;
begin
if X > 1000 then Exit;
A := Trunc(X + 0.5);
Result := A - (A mod 5);
end;
[解决办法]
错了，只取整了，忘记div 5的后续处理了。