jzxx1016判断某年某月天数

题目描述
输入年，月，然后告诉该月有多少天。
 
输入
输入只有一行，包括2个整数。之间用一个空格分开。
 
输出
输出只有一行（这意味着末尾有一个回车符号），包括1个整数。
 
样例输入 
2000 2
样例输出 
29

满分代码：
var y,m,d:integer; f:boolean;
begin   
readln(y,m);   
if(y mod 4=0)and(y mod 100 <> 0)or(y mod 400 = 0) then f:=true;   
if(m=4)or(m=6)or(m=9)or(m=11) then d:=30       
else if(m=2) and f then d:=29           
else if(m=2) and not f then d:=28               
else d:=31;   
writeln(d);
end.