СРОЧНО НУЖНО СДЕЛАТЬ
pascal нужно посчитать количество единичных битов числа 14

varn, count: byte;beginreadln(n);count := 0;count := count + n mod 2;n := n div 2;count := count + n mod 2;n := n div 2;count := count + n mod 2;n := n div 2;count := count + n;writeln(count)end.