Составить программу по : сколько воскресений в 2016 году, если первое воскресение 3 января.

Var
  k, n: integer;

begin
  k := 0;
  n := 3;
  repeat
    k := k + 1;
    n := n + 7;
  until n > 366;
  writeln(k);
end.

ответ 52