afficher le nombre de jours du mois d'une année donnée

ÉNONCÉ
Ecrire un algorithme du programme intitulé JOURS, qui pour une année et un mois donné affiche le nombre de jours de ce mois
PASCAL

program jours;
uses wincrt;
var nj,a,m:integer;
begin
writeln('entrer une année : ');
readln(a);
writeln('entrer l"ordre du mois : ');
readln(m);
case m of
1,3,5,7,8,10,12: nj:=31;
4,6,9,11: nj:=30;
2:begin
if a mod 4=0 then nj:=29
else nj:=28
end;
end;
writeln('le mois ',m,' a pour nombre de jours ',nj);
end.