Составить программу в паскале : по номеру месяца вывести количество дней в нем

Uses crt;
var i,j:integer;
begin
readln(i);
case i of
1,3,5,7,8,10,12 : writeln('31');
2: writeln('28');
4,6,9,11: writeln('30');
end;
end.