Question

ПОЖАЛУЙСТА,Напишите задачу на паскале
Календарь жителей племени Чунга состоит из N месяцев, каждый месяц состоит ровно из 30 дней, неделя состоит из 7 дней. Особо несчастливым считается 13-е число месяца, если оно выпадает на пятницу.
Известно,что текущий год начался в k-й по счету день недели (1-й день недели - понедельник, 2-й - вторник, 3-й - среда, ..., 7-й - воскресенье). Определите, сколкько в этом году в племени Чунга будет особо несчатливых пятниц.
Вводные данные
Первая строка входного файла содержит натуральное число N (N<=10в девятой степени) - оличество месяцев в календаре племени Чунга, вторая - номер дня недели k (от 1 до 7),
на который приходиться первое число первого месяца нового (текузего) года
Выходные данные
Единственная строка выходного файла должна содержать число несчастливых пятниц в этом году.

Answer 1

та вообще легко оказалась. ну в файлики сами напишите если реально надо

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.