Hogyan lehet Pascalba kerekíteni?

var egyesek: byte;

[...]

if egyesek in [1,2,8,9] then egyesek:=0 else egyesek:=5;

function MyRound ( const k : Integer ) : Integer;

begin

case k mod 10 of

0, 5: MyRound := k;

1, 2: MyRound := ( k div 10 ) * 10;

8, 9: MyRound := (( k div 10 ) * 10 ) + 10;

3, 4, 6, 7: MyRound := (( k div 10 ) * 10 ) + 5;

end;

end;