Nikita_listed_type

type
    month = (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec);
var
    k: 1..366;
    d: 1..31;
    m: month;
    m1:1..12;
    i: integer;
begin
    Write('day month: ');
    ReadLN(d,m1);
    k:=1;
    for m:=Jan to Dec do
    begin
        case m of
            Jan: k:=k+0;
            Mar, May, Jul, Aug, Oct, Dec: k:=k+31;
            Apr, Jun, Sep, Nov: k:=k+30;
            Feb: k:=k+29;
        end;
    if ord(m)=m1-1 then break;
    end;
Writeln('Poryadkovyi nomer dnya: ',k+d-1);
readln;
End.