function Round5(ValueRound: integer): integer;
var chislo, rez: integer;
begin
   chislo := strtoint(copy(inttostr(ValueRound), length(inttostr(ValueRound)), 1));
   case chislo of
      0, 5: rez := ValueRound;
      1, 2: rez := ValueRound - chislo;
      3, 4: rez := ValueRound + (5 - chislo);
      6, 7: rez := ValueRound - (chislo - 5);
      8, 9: rez := ValueRound + (10 - chislo);
   end;
   result := rez;
end;