Количество цветов в палитре при глубине цвета 16 битов. люди

Цветов: )

              (начало)                     |                   / x /           да        |          нет           < x < 0 >         |              да          |        нет [ x = x / 2 ]        < x > 0 >         |                  |                    |         |          [ x = x * 8]      [ x = 10 ]         |                  |                    |                                   |                         / x /                           |                     (конец) п0 x< 0 07 2 / п0 с/п ип0 /-/ x< 0 15 8 * п0 с/п 1 0 п0 с/п

Var  s: string;   k: real; begin    write('введите вес в килограммах ');     readln(k);     write('во что хотите перевести (мгр, гр, цн, тн, ктн, мтн): ');     readln(s);     case s of      'мгр': write(k, 'кг = ', k * 1000000, ' мгр');       'гр': write(k, 'кг = ', k * 1000, ' гр');       'цн': write(k, 'кг = ', k / 100, ' ц');       'тн': write(k, 'кг = ', k / 1000, ' т');       'ктн': write(k, 'кг = ', k / 1000000, ' кт');       'мтн': write(k, 'кг = ', k / 1000000000, ' мт')    else write('неправильно введена единица измерения');     end; end.