viết chương trình nhập từ bàn phím 2 số nguyễn là tháng và năm . Đưa ra màn hình số ngày của tháng tư

program nam;

uses Crt; var a, b : integer;

begin

clrscr();

write('nhap thang :'); readln(a);

write('nhap nam :'); readln(b);

if (a=2) and (b mod 4 = 0) then writeln ('thang 2 nam', b,' co 30 ngay');

if(a=2) and (b mod 4 0) then writeln('thang 2 nam ', b,' co 29 ngay');

if a = 1 then writeln('thang 1 nam', b,' co 31 ngay');

if a = 3 then writeln('thang 3 nam', b,' co 31 ngay');

if a = 4 then writeln('thang 4 nam', b,' co 30 ngay');

if a = 5 then writeln('thang 5 nam', b,' co 31 ngay');

if a = 6 then writeln('thang 6 nam', b,' co 30 ngay');

if a = 7 then writeln('thang 7 nam', b,' co 31 ngay');

if a = 8 then writeln('thang 8 nam', b,' co 31 ngay');

if a = 9 then writeln('thang 9 nam', b,' co 30 ngay');

if a = 10 then writeln('thang 10 nam', b,' co 31 ngay');

if a = 11 then writeln('thang 11 nam', b,' co 30 ngay');

if a = 12 then writeln('thang 12 nam', b,' co 31 ngay');

readln

end.

program nam;

uses Crt;

var a, b : integer;

begin clrscr();

write('nhap thang :'); readln(a);

write('nhap nam :'); readln(b);

if (a=2) and (b mod 4 = 0) then writeln ('thang 2 nam', b,' co 30 ngay');

if(a=2) and (b mod 4 0) then writeln('thang 2 nam ', b,' co 29 ngay');

if a = 1 then writeln('thang 1 nam', b,' co 31 ngay');

if a = 3 then writeln('thang 3 nam', b,' co 31 ngay');

if a = 4 then writeln('thang 4 nam', b,' co 30 ngay');

if a = 5 then writeln('thang 5 nam', b,' co 31 ngay');

if a = 6 then writeln('thang 6 nam', b,' co 30 ngay');

if a = 7 then writeln('thang 7 nam', b,' co 31 ngay');

if a = 8 then writeln('thang 8 nam', b,' co 31 ngay');

if a = 9 then writeln('thang 9 nam', b,' co 30 ngay');

if a = 10 then writeln('thang 10 nam', b,' co 31 ngay');

if a = 11 then writeln('thang 11 nam', b,' co 30 ngay');

if a = 12 then writeln('thang 12 nam', b,' co 31 ngay');

readln

end.