Паскаль У місяці обчислити кількість парних днів

//PascalABC.NET 3.1 сборка 1239 uses System; begin     var m := ReadInteger('Введите номер месяца =>');     var d := new DateTime(DateTime.Now.Year, m, 1);          var k := 0;     repeat         if d.Day mod 2 = 0 then k += 1;         d := d.AddDays(1);     until d.Month <> m;          writeln(k); end.