Programm for calc discount