program oken;
uses crt;
var nam,thang: integer;
begin
    clrscr;
    write('Nhap nam: '); readln(nam);
    repeat
        write('Nhap thang: '); readln(thang);
    until (thang>0) and (thang<13);
    case thang of
        1,3,5,7,8,10,12: writeln('Thang ',thang,' co 31 ngay.');
        4,6,9,11: writeln('Thang ',thang,' co 30 ngay');
        else
            if (nam mod 4=0) or (nam mod 400=0) then
                writeln('Thang 2 co 29 ngay')
            else
                writeln('Thang 2 co 28 ngay');
    end;
    readln;
end.

uses crt;

var a,b:integer;

    bo:boolean;

begin  write('2020 :');

readln(b);

  if (b mod 100=0) then bo:=(b mod 400)=0 else  bo:=(b mod 4   )=0;

  if bo then  begin    repeat      clrscr;

      write('Nhap thang :');

readln(a);

    until (a>0) and (a<13);

    case a of      2:write('Co 29 ngay');

      1,3,5,7,8,10,12:write('Co 31 ngay');

      4,6,9,11:write('Co 30 ngay');

    end;

  end;

  if (not bo) then  begin    repeat      clrscr;

      write('Nhap thang :');

readln(a);

    until (a>0) and (a<13);

    case a of      2:write('Co 28 ngay');

      1,3,5,7,8,10,12:write('Co 31 ngay');

      4,6,9,11:write('Co 30 ngay');

    end

  end;

  readln;

end.

đây nha bạn là năm nhuận năm 2020
tháng 2 có 29 ngày
1 3 5 7 8 10 12 có 31 ngày
4 6 9 11 có 30 ngày