Однажды Петя похвастался Васе, что знает, как связаны между собой четверичная и шестнадцатеричная система счисления. В частности, он заявил, что проанализировал все целые положительные числа, меньшие 4096{10}, и обнаружил среди них число с максимальной разностью между суммой цифр в записи этого числа в шестнадцатеричной системе счисления и суммой цифр в записи этого числа в четверичной системах счисления. Вася немного подумал и сказал, что такое число не одно Пете и определите, сколько существует таких чисел. В ответе укажите целое число.

var r_1,r_2,r_3,ch : integer;

begin

       writeln('ch = ');

       readln(ch);

       r_1 = random(50) - 25;  {рандомные числа в районе от -25 до 25}

       r_2 = random(50) - 25;

       r_3 = random(50) - 25;

       writeln('r_1 = ',r_1);

       writeln('r_2 = ',r_2);

       writeln('r_3 = ',r_3);

       if r_1 < ch then  

       begin

               writeln('r_1 < ch');

       end;

       if r_1 = ch then  

       begin

               writeln('r_1 = ch');

       end;

       if r_1 > ch then  

       begin

               writeln('r_1 > ch');

       end;

       if r_2 < ch then  

       begin

               writeln('r_2 < ch');

       end;

       if r_2 = ch then  

       begin

               writeln('r_2 = ch');

       end;

       if r_2 > ch then  

       begin

               writeln('r_2 > ch');

       end;

       if r_3 < ch then  

       begin

               writeln('r_3 < ch');

       end;

       if r_3 = ch then  

       begin

               writeln('r_3 = ch');

       end;

       if r_3 > ch then  

       begin

               writeln('r_3 > ch');

       end;

end.