Solve[Mod[28 + 30 k, 25] == 18, k]