谁会做pascal编程题目？

输入年月输出此月的天数：
var
y,m:integer;
begin
readln(y,m);
case m of
1,3,5,7,8,10,12:writeln('the month is 31');
2:if (y mod 4=0) and (y mod 100<>0) or (y mod 400=0) then
writeln('the month is 29')
else
writeln('the month is 28')
else
writeln('the month is 30')
end;
end.

会啊
O(∩_∩)O~

当然会
不过你问这个干什么?

还行

会的，什么题目？