/* Screening(x, k, n) - функция восстановления
   баланса пирамиды */
for i = n/2 downto 0
   Screening(x, i, n-1);