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.