В цирке произошло ограбление, в результате которого в гримерке пропали все клоунские носы. Администрация решила закупить M носов и раздать их N клоунам особым клоуны становятся в круг, после чего начинается раздача. Первый нос отдается первому клоуну в кругу, второй нос – второму клоуну и т.д. После N-го клоуна снова идет первый клоун (они все пронумерованы числами от 1 до N, круг зацикливается, после клоуна с номером N идет клоун с номером 1). В результате раздачи, когда все носы кончаются, нескольким клоунам может достаться меньше носов, чем другим администрации узнать, каково будет это количество.

Входные данные
Сначала идет число N – количество клоунов в цирке. Второе число M – количество клоунских носов. Оба числа натуральные и не превосходят 109.

Выходные данные
Программа должна вывести целое число – количество клоунов, которым досталось меньше носов.

Алгоритм оказания первой что при оказании первой вам ничего не угрожает и вы не подвергаете себя опасности.Обеспечить безопасность пострадавшему и окружающим (например, извлечь пострадавшего из горящего автомобиля).Проверить наличие у пострадавшего признаков жизни (пульс, дыхание, реакция зрачков на свет) и сознания. Для проверки дыхания необходимо запрокинуть голову пострадавшего, наклониться к его рту и носу и попытаться услышать или почувствовать дыхание. Для обнаружения пульса необходимо приложить подушечки пальцев к сонной артерии пострадавшего. Для оценки сознания необходимо (по возможности) взять пострадавшего за плечи, аккуратно встряхнуть и задать какой-либо вопрос.

Var
a,k,m,min,i,flag:integer;
    begin
            readln(a);
            m:=a; {сохраняю введенное значение и считаю кол-во цифр в числе}
              while m >0 do     
                  begin         
                          m:=m div 10;         
                          k:=k+1;     
                  end;     
min:=9; {записываю самое большое нечетное число}
{в цикле отсекаю последнюю цифру в числе и проверяю ее на нечетность. Если она нечетная и меньше числа min, то сохраняю ее в min и присваиваю переменной Flag 1. Если к концу программы в переменной flag  будет 1, значит хотя бы одна нечетная цифра в числе была, если flag=0 тогда в числе нет нечетных}
            for i:=1 to k do   
                      begin       
                             if   (a mod 10<=min)and(a mod 2<>0) then           
                                begin             
                                     min:=a mod 10;             
                                     flag:=1;           
                                end;       
                          a:=a div 10;   
                     end;         
      if flag=0 then           
                writeln('нет нечетных')         
      else             
                writeln(min);
end.