Вычислить количество пятниц, приходящихся на 13-е числа 21 века

program Friday13;
 
//первая "пятница 13" в 21 веке: 13.04.2001, от неё и пляшем
 
//число дней в следующем месяце
const pp: array [1..12] of byte = (28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31, 31);
 
var m, y, n, k: integer;
 
begin
  n := 0; //счётчик дней
  k := 0; //пока нет пятниц 13
  m := 4; //начинаем от 04 месяца 2001 года
  for y := 2001 to 3000 do
    begin
      while m <= 12 do
        begin
          n := n mod 7;
          if n = 0 then k := k + 1; //если счётчик дней делится нацело на 7, то это одна из пятниц 13
          n := n + pp[m]; //прибавляем к счётчику число дней в следующем месяце
          if (m = 1) and (y mod 4 = 0) then n := n + 1; //если следующий месяц февраль и год високосный, добавляем ещё один день
          m := m + 1 //следующий месяц
        end;
      m := 1 //январь следующего года
    end;
  writeln('Count of "Friday 13" in 2001..3000: ', k);
  readln
end.

program Friday13;
 
//первая "пятница 13" в 21 веке: 13.04.2001, от неё и пляшем
 
//число дней в текущем месяце
const pp: array [1..12] of byte = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
 
var m, y, n, k: integer;
 
begin
  n := 0; //счётчик дней
  k := 0; //пока нет пятниц 13
  m := 4; //начинаем от 04 месяца 2001 года
  for y := 2001 to 3000 do //цикл по годам
    begin
      while m <= 12 do //цикл по месяцам
        begin
          n := n mod 7;
          if n = 0 then k := k + 1; //если счётчик дней делится нацело на 7, то это одна из пятниц 13
          n := n + pp[m]; //прибавляем к счётчику число дней в текущем месяце
          if (m = 2) and (y mod 4 = 0) then n := n + 1; //если текущий месяц февраль и год високосный, добавляем ещё один день
          m := m + 1 //следующий месяц
        end;
      m := 1 //январь следующего года
    end;
  writeln('Count of "Friday 13" in 2001..3000: ', k);
  readln
end.

for y := 2001 to 2100 do