Сколько нулей в двоичной записи десятичного числа 612

Выпишем в порядке убывания числа, являющиеся результатом возведения двойки в степень и не превышающие 612. 512, 256, 128, 64, 32, 16, 8, 4, 2, 1. 612-512=100 100< 256 - первый ноль 100< 128 - второй ноль 100-64=36 36-32=4 4< 16 - третий ноль 4< 8 - четвертый ноль 4-4=0 0< 2 - пятый ноль 0< 1 - шестой ноль. итого нулей - шесть.

612 =  , там 6 нулей

var

  x: array[1..15]of integer;

  i,min,z: integer;

begin

  min: =32000;

  z: =0;

  for i: =1 to 15 do

  begin

  readln(x[i]);

  if x[i]> 0 then if x[i]< min then min: =x[i];

  if x[i]=0 then inc(z);

  end;

  writeln(min);

  writeln(z);

end.