Помогите. Не переводит в безубыток.

 
Замучился уже. Вроде компилирует и все вроде правильно, но хоть тресни не переводит в безубыток. Поправьте пожалуйста.