Pascal【入门】判断某年某月的天数

题目描述：

输入年，月，然后告诉该月有多少天。

输入：

输入只有一行，包括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.