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

//PascalABC.NET 3.1 сборка 1239
uses System;

begin
    var m := ReadInteger('Введите номер месяца =gt;');
    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 lt;gt; m;
    
    writeln(k);
end.