aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

program ahla;
uses wincrt;
var
j,m,a,e:integer;
c:string;
begin

write('Donner une date (jj/mm/aaaa): ');
readln(c);

val(copy(c,1,2),j,e);
val(copy(c,4,2),m,e);
val(copy(c,7,4),a,e);
if j>31 then begin
Repeat
Writeln('corriger le jour');
Readln(j);
until j in [01,02,03,04,05,06,07,08,09,10,11,12,14,15,16,17,18,20,21,22,23,24,25,26,27,28,29,30,31]
end;
if m>12 then begin
Repeat
Writeln('corriger le jours');
Readln(m);
until m in [1,2,3,4,5,6,7,8,9,10,11,12]
end;
if a<2019 then begin
Repeat
Writeln('corriger l''année');
Readln(a);
until a>=2019
end ;
if m in [1,3,5,7,8,10,12] then
 if j<31 then j:=j+1
 Else
    If m<>12 Then
      Begin
        j := 1;
        m := m+1;
      End
			 Else
    Begin
      j := 1;
      m := 1;
      a := a+1;
			end;


 if m in [4,6,9,11] then

     if j<30 then j:=j+1
		 else Begin
		 j:=1;
		 m:=m+1;
		 end;

 if m=2 then
            begin
             if (a mod 4=0)then
                 if j<29 then j:=j+1
                 		else
                             begin
                             j:=1;
                             m:=m+1;
                             end
             else
                 if j<28 then j:=j+1
                      else
                             begin
                             j:=1;
                             m:=m+1;
                             end;
            end;



 write('Le jour suivant est=');
 if j<10 then write('0',j) else write(j);
 write('/');
 if m<10 then write('0',m) else write(m);
write('/',a);

end.