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.
UHJvZ3JhbSBuYnJfam91cnNfbW9pczsKVmFyIG5iaiwgbW0sIGFuIDogaW50ZWdlcjsKQmVnaW4KV3JpdGVsbiAoJ07CsCBkdSBtb2lzIDogJyk7ClJlYWRsbiAobW0pOwpXcml0ZWxuICgnQW5uw6llIDogJyk7ClJlYWRsbiAoYW4pOwpJZiBtbSBpbiBbMSwzLDUsNyw4LDEwXSBUaGVuIG5iaiA6PTMxCkVsc2UKQmVnaW4KSWYgbW0gaW4gWzQsNiw5LDExXSBUaGVuIG5iaiA6PTMwCkVsc2UKQmVnaW4KSWYgKG1tPTIpIGFuZCAoYW4gbW9kIDQ9MCkgYW5kICgoYW4gbW9kIDEwMDw+MCkgb3IgKGFuIG1vZCA0MDA9MCkpIFRoZW4gbmJqIDo9IDI5IApFbHNlIG5iaiA6PSAyODsKRW5kOwpFbmQ7CndyaXRlbG4gKCdMZSBub21icmUgZGUgam91cnMgZHUgbW9pcyBzYWlzaSBlc3QgOiAnLCBuYmopOwpFbmQu