uses School;
begin
var r := (4bi ** 2015 + 2bi ** 6048 - 2bi ** 2017 - 150).ToBase(2);
Println('Нулей:', r.Count(d -> d = '0'));
Println('Единиц:', r.Count(d -> d = '1'))
end.
