用pascal编输出月份的天数程序

输入年份，月份，输出天数 最简洁的方法。

答案或建议：

除了韵年（那个字打不出来）有点裹筋，这个题真得不难
program tianshu(input,output);
var
year,month,day:integer;
begin
readln(year,month);
case month of
2:if year mod 4=0 then day:=29
else day:=28;
1,3，5，7，8，10，12：day:=31;
4,6,9,11:day:=30;
end;
writeln(day:3);
end.
输出语句里面加一些说明的字符串，更好。

文章来源链接：http://www.baikewenda.com/tech/dev/6/9/a2116016.htm