Pascal ABC. Информатика. 30 баллов за программу. Имеется кучка из n (n меньше 32000) орехов. Разрешается разделить ее на две. Каждую из полученных кучек можно так же разделить на две. За каждое неровное деление на кучки полагае...

Pascal ABC. Информатика. 30 баллов за программу. Имеется кучка из n (n<32000) орехов. Разрешается разделить ее на две. Каждую из полученных кучек можно так же разделить на две. За каждое неровное деление на кучки полагается штраф - 1. Деление продолжается до тех пор, пока кучки не будут содержать по 1 ореху. Для введенного с клавиатуры числа орехов определить минимальный штраф. Напишите пожалуйста программу для Pascal ABC