Program Lendemain;
Var j, m, a : Integer;
Begin
Writeln('Donner une date sous forme jj mm aa');
Readln(j, m, a);
Case m Of
1, 3, 5, 7, 8, 10,12 : If j<31 Then j:=j+1
Else If m = 12 Then Begin j:=1; m:=1; a:=a+1; End
Else Begin j:=1; m:=m+1; End;
4, 6, 9,11: If j<30 Then j:=j+1 Else Begin j:=1; m:=m+1; End;
2 : If (((a mod 4)=0) and ((a mod 100)<>0)) or ((a mod 400)=0) Then If j<29 Then j:=j+1 Else Begin j:=1; m:=3; End
Else If j<28 Then j:=j+1 
Else Begin j:=1; m:=3; End;
End;
Writeln('La date du lendemain est : ',j,'/',m,'/',a);
End.

UHJvZ3JhbSBMZW5kZW1haW47ClZhciBqLCBtLCBhIDogSW50ZWdlcjsKQmVnaW4KV3JpdGVsbignRG9ubmVyIHVuZSBkYXRlIHNvdXMgZm9ybWUgamogbW0gYWEnKTsKUmVhZGxuKGosIG0sIGEpOwpDYXNlIG0gT2YKMSwgMywgNSwgNywgOCwgMTAsMTIgOiBJZiBqPDMxIFRoZW4gajo9aisxCkVsc2UgSWYgbSA9IDEyIFRoZW4gQmVnaW4gajo9MTsgbTo9MTsgYTo9YSsxOyBFbmQKRWxzZSBCZWdpbiBqOj0xOyBtOj1tKzE7IEVuZDsKNCwgNiwgOSwxMTogSWYgajwzMCBUaGVuIGo6PWorMSBFbHNlIEJlZ2luIGo6PTE7IG06PW0rMTsgRW5kOwoyIDogSWYgKCgoYSBtb2QgNCk9MCkgYW5kICgoYSBtb2QgMTAwKTw+MCkpIG9yICgoYSBtb2QgNDAwKT0wKSBUaGVuIElmIGo8MjkgVGhlbiBqOj1qKzEgRWxzZSBCZWdpbiBqOj0xOyBtOj0zOyBFbmQKRWxzZSBJZiBqPDI4IFRoZW4gajo9aisxIApFbHNlIEJlZ2luIGo6PTE7IG06PTM7IEVuZDsKRW5kOwpXcml0ZWxuKCdMYSBkYXRlIGR1IGxlbmRlbWFpbiBlc3QgOiAnLGosJy8nLG0sJy8nLGEpOwpFbmQu

MTIgMDUgMjAxNQ==

12 05 2015