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

//PascalABC.NET 3.1 сборка 1239uses 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.