Вася купил себе новую квартиру и теперь занимается переездом. У него есть N книг, Вася хочет перевозить их отдельно от основных вещей. Для транспортировки он может использовать коробки, которые вмещают M книг каждая. Помогите Васе, какое кол-во коробок ему понадобится для перевозки всех книг за один раз. Составить программу на Паскале или другом ЯП

a - количество коробок

program one;

var N, M, a : integer;

begin

   read (N, M);

   if N mod M > 0 then

   begin

       a := (N div M) + 1;

   end;

   if N mod M = 0 then

   begin

       a := N div M;

   end;

   write (a);

end.