Напишите на паскале календарь жителей племени чунга состоит из n месяцев, каждый месяц состоит ровно из 30 дней, неделя состоит из 7 дней. особо несчастливым считается 13-е число месяца, если оно выпадает на пятницу. известно,что текущий год начался в k-й по счету день недели (1-й день недели - понедельник, 2-й - вторник, 3-й - среда, 7-й - воскресенье). определите, сколкько в этом году в племени чунга будет особо несчатливых пятниц. вводные данные первая строка входного файла содержит натуральное число n (n< =10в девятой степени) - оличество месяцев в календаре племени чунга, вторая - номер дня недели k (от 1 до 7), на который приходиться первое число первого месяца нового (текузего) года выходные данные единственная строка выходного файла должна содержать число несчастливых пятниц в этом году.
var
n, k, d, count: integer;
begin
readln(n, k);
count := 0;
for d := 1 to 30 * n do
if (d mod 30 = 13) and ((d + k - 1) mod 7 = 5) then
count := count + 1;
writeln(count);
end.