Program Date_lett;
Var mm, err : Integer;
date, jj, aa, mois : String [10] ;
Begin
Writeln ('Saisir une date sous la forme jj/mm/aaaa');
Readln (date);
jj := COPY (date, 1, 2) ;
aa := COPY (date, 7, 4);
VAL (COPY (date, 4, 2), mm, err);
Case mm of
1 : mois := 'Janvier';
2 : mois := 'Février';
3 : mois := 'Mars';
4 : mois := 'Avril';
5 : mois := 'Mai';
6 : mois := 'Juin';
7 : mois := 'Juillet';
8 : mois := 'Août';
9 : mois := 'Septembre';
10 : mois := 'Octobre';
11 : mois := 'Novembre';
12 : mois := 'Décembre';
End;
Writeln (jj,' ',mois:2,' ',aa:2);
End.