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.
UHJvZ3JhbSBEYXRlX2xldHQ7ClZhciBtbSwgZXJyIDogSW50ZWdlcjsKZGF0ZSwgamosIGFhLCBtb2lzIDogU3RyaW5nIFsxMF0gOwpCZWdpbgpXcml0ZWxuICgnU2Fpc2lyIHVuZSBkYXRlIHNvdXMgbGEgZm9ybWUgamovbW0vYWFhYScpOwpSZWFkbG4gKGRhdGUpOwpqaiA6PSBDT1BZIChkYXRlLCAxLCAyKSA7CmFhIDo9IENPUFkgKGRhdGUsIDcsIDQpOwpWQUwgKENPUFkgKGRhdGUsIDQsIDIpLCBtbSwgZXJyKTsKQ2FzZSBtbSBvZgoxIDogbW9pcyA6PSAnSmFudmllcic7CjIgOiBtb2lzIDo9ICdGw6l2cmllcic7CjMgOiBtb2lzIDo9ICdNYXJzJzsKNCA6IG1vaXMgOj0gJ0F2cmlsJzsKNSA6IG1vaXMgOj0gJ01haSc7CjYgOiBtb2lzIDo9ICdKdWluJzsKNyA6IG1vaXMgOj0gJ0p1aWxsZXQnOwo4IDogbW9pcyA6PSAnQW/Du3QnOwo5IDogbW9pcyA6PSAnU2VwdGVtYnJlJzsKMTAgOiBtb2lzIDo9ICdPY3RvYnJlJzsKMTEgOiBtb2lzIDo9ICdOb3ZlbWJyZSc7CjEyIDogbW9pcyA6PSAnRMOpY2VtYnJlJzsKRW5kOwpXcml0ZWxuIChqaiwnICcsbW9pczoyLCcgJyxhYToyKTsKRW5kLg==