Какое число в шестнадцатиричной системе счисления равно двоичному числу 1110110011001?

Program zz;
var   a,z,z1,z2,z3,z4,z5,z6,z7,z8,x:integer;
begin
readln(a); 
while a>0 do
begin 
x:=a mod 10;   
if x=1 then z:=z+1;   
if x=2 then z1:=z+1;   
if x=3 then z2:=z2+1;   
if x=4 then z3:=z3+1; 
if x=5 then z4:=z4+1;   
if x=6 then z5:=z5+1;   
if x=7 then z6:=z6+1;   
if x=8 then z7:=z7+1;   
if x=9 then z8:=z8+1;   
a:=a div 10;   
end;   
if (z>1) or (z1>1) or (z2>1) or (z3>1) or(z4>1) or (z5>1) or (z6>1) or (z7>1) or (z8>1)
then writeln('yes')     
else writeln('no');
end.

Есть ряд тонкостей, что бы выбрать себе компьютер, как можно дешевле, но с нужными вам возможностями. Конкуренция на рынке крайне велика и огромное количество не крупных, но проверенных и известных магазинов могут себе позволить по заказу клиента пере конфигурировать содержимое компьютера. Тем самым вы всегда можете сэкономить деньги урезав некоторые ненужные характеристики машины. А в будущем функционал всегда легко можно расширить, добавив или заменив устаревшие детали - сделать "апгрэйд". Заменив такие вещи, как видео карту (для обычной работы мощная карта не нужна), блок питания, поставить более объёмный жёсткий диск. Если вы решитесь выбрать компьютер таким то сэкономите наличные, и в ближайшем будущем вам ничего не угрожает.