ПОЖАЛУЙСТА,Напишите задачу на паскале
Календарь жителей племени Чунга состоит из 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.