Иван Петрович взял отпуск продолжительностью n дней. Первый день отпуска выпадает на день недели под номером d (1 — понедельник, 2 — вторник, ..., 7 — воскресенье). Иван Петрович любит ездить отдыхать на Кипр. Но вылеты на Кипр из его родного города есть только по понедельникам, а обратно — только по воскресеньям. Иван Петрович хочет понять, какое максимальное количество недель он сможет провести на Кипре в свой отпуск (день прилёта и день обратного вылета Иван Петрович считает днями, проведёнными на Кипре ему вычислить это. Входные данные
В первой строке входных данных записано целое число n (1 ≤ n ≤ 109) — продолжительность отпуска. Во второй строке записано целое число — d (1 ≤ d ≤ 7) — номер дня недели первого дня отпуска.

Выходные данные
Требуется вывести одно целое число — количество недель, которое Иван Петрович проведёт на Кипре.

Система оценки
Решения, работающие верно при n ≤ 1000, будут оцениваться в

Примеры
Ввод

Вывод

Пояснение

14
1

2

Отпуск продолжается 14 дней и начинается в понедельник. Поэтому Иван Петрович улетит на Кипр в первый день и вернётся в 14-й день, продолжительность пребывания на Кипре составит две недели.

17
3

1

Отпуск начинается в среду. Ближайший понедельник будет 6-м днём отпуска. Ивану Петровичу придётся вернуться в воскресенье, которое будет 12-м днём отпуска. Следующее воскресенье будет 19-м днём отпуска, а продолжительность отпуска только 17 дней. Поэтому на Кипре Иван Петрович проведёт всего лишь одну неделю.

Var month: array[1..12]of string[10]=
(' январь ',' февраль ',' март ',' апрель ',' май ',' июнь ',
' июль ',' август ',' сентябрь ',' октябрь ',' ноябрь ',' декабрь ');
procedure p(s:string);
begin
writeln(s);
end;
var N_M:integer;
begin
writeln(' введи номер месяца ');
readln(N_M);
case N_M of
 1..12: p(month[N_M]);
 else p(' такого месяца нет ');
 end;
case N_M of
 1,3,5,7,8,10,12: p(' 31 день ');
 4,6,9,11: p(' 30 дней ');
 2: p(' 28 дней ');
 end;
case N_M of
 12,1,2: p(' зима');
 3,4,5: p(' весна');
 6,7,8: p(' осень');
 9,10,11: p(' лето');
 end;
end.

Пример:
введи номер месяца
5
май
31 день
весна

Область рисования.
Объект Область рисования Graphics позволяет выбрать в качестве области рисования определенный элемент управления и обладает методами рисования графических фигур. Сначала необходимо в разделе объявления переменных определить имя объекта, например:

Dim Graph1 As Graphics

Затем в программном коде обработчика события необходимо указать определенный элемент управления в качестве области рисования. Обычно в качестве области рисования выбирается размещенное на форме графическое поле (например, PictureBox1):

Graph1 = Ме.PictureBox1.CreateGraphics ()

Перо.
Объект Перо Pen определяет цвет и ширину линии рисования. Сначала необходимо в разделе объявления переменных определить имя объекта (например, Pen1), установить цвет (например, красный Color.Red) и ширину линии в пикселях (например, 3):

Dim Pen1 As New Pen(Color.Red, 3)

Затем в программном коде обработчика события можно установить новые значения цвета и ширины линии, например:

Pen1.Color = Color.Green
Pen1.Width = 15

Кисть.
Объект Кисть Brush определяет цвет и стиль закрашивания прямоугольников, окружностей и других замкнутых фигур. Сначала необходимо в разделе объявления переменных определить имя объекта (например, Brush1) и установить тип закраски и цвет (например, сплошная закраска синего цвета SolidBrush (Color.Blue) ):

Dim Brush1 As New SolidBrush (Color.Blue )

Затем в программном коде обработчика события можно установить новый цвет закраски (например, пурпурный):

Brush1.Color = Color.Magenta

Графические методы.
Графические фигуры рисуются с использованием графических методов. Замкнутые фигуры, такие как прямоугольники или эллипсы, состоят из двух частей — контура и внутренней области. Контур рисуется с использованием заданного пера, а внутренняя область закрашивается с использованием заданной кисти.

Цвет.
Цвет устанавливается как значение свойства Color. Можно установить цвет с использованием нескольких десятков цветовых констант. Ниже приведены примеры установки зеленого цвета для объекта Pen1 и желтого цвета для объекта Brush1:

Pen1.Color = Color.Green
Brush1.Color = Color.Yellow

Для установки цвета в 24-битовой палитре цветов RGB используется метод Color.FromArgb (Red, Green, Blue), аргументами которого являются три числа в диапазоне от 0 до 255 (интенсивности красного, зеленого и синего цветов). Например, так можно установить пурпурный цвет для объекта Brush1:

Brush1.Color = Color.FromArgb(255, 0 , 255)

Рисование текста.
Метод DrawString () позволяет выводить текст в область рисования. Аргументами метода является Строка текста, Шрифт, Кисть и координаты начала строки. Объекты Шрифт (например, drawFont) и Кисть (например, drawBrush) необходимо объявить:

Dim drawFont As New Font («Arial», 16)
Dim drawBrush As New SolidBrush (Color.Black)

Рисование текста в поле рисования можно осуществить так:

Graphl1.DrawString («Текст», drawFont , drawBrush, 10, 10)

Системы координат.
Рисование линий, прямоугольников и других фигур производится в компьютерной системе координат, начало которой расположено в верхнем левом углу формы или элемента управления. Ось Х направлена вправо, а ось У — вниз. Единицей измерения по умолчанию является точка (пиксель). Компьютерная система координат графического поля шириной 300 точек и высотой 200 точек приведена на рисунке ниже.

При геометрических построениях и построении графиков функций удобнее использовать математическую систему координат, начало которой обычно находится в центре области рисования. Ось Х направлена вправо, а ось У — вверх. Математическая система координат графического поля шириной 300 точек и высотой 200 точек приведена ниже:

Для преобразования компьютерной системы координат в математическую систему координат используется метод масштабирования и поворота осей ScaleTransform () и метод сдвига начала координат TranslateTransform ().

Метод Graph1.ScaleTransform(1 , — 1) обеспечивает поворот оси У.

Метод Graph1.TranslateTransform(150 , -100) обеспечивает сдвиг по оси Х на 150 точек вправо и сдвиг по оси У на 100 точек вниз.

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