Подскажите , как ввести косумацию в программе?