Program nbr_jours_mois;
Var nbj, mm, an : integer;
Begin
Writeln ('N° du mois : ');
Readln (mm);
Writeln ('Année : ');
Readln (an);
If mm in [1,3,5,7,8,10] Then nbj :=31
Else
Begin
If mm in [4,6,9,11] Then nbj :=30
Else
Begin
If (mm=2) and (an mod 4=0) and ((an mod 100<>0) or (an mod 400=0)) Then nbj := 29 
Else nbj := 28;
End;
End;
writeln ('Le nombre de jours du mois saisi est : ', nbj);
End.