Program Toute_Lettre;
Const Chiffres : Array[0..19] of String =('','un','deux','trois','quatre','cinq','six','sept','huit','neuf','dix','onze','douze','treize','quatorze','quinze','seize','dix-sept','dix-huit','dix-neuf');
Dizaines : Array[2..9] of String = ('vingt','trente','quarante','cinquante','soixante','','quatre-vingt','');
Var n : Integer;
result : String;
Begin 
Writeln ('Donner un entier entre 0 et 99');
Readln (n);
Case n of
0..19 : result := Chiffres [n];
20..69,80..89: If ((n mod 10 = 1) and (n<>81)) Then result := Dizaines [n div 10] + ' et ' + Chiffres [n mod 10]
Else
result := Dizaines [n div 10] + ' ' + Chiffres [n mod 10];
70..79,90..99: If (n = 71) Then result := Dizaines [n div 10 -1] + ' et ' + Chiffres [n mod 10 + 10]
Else 
result := Dizaines [n div 10 -1] + ' ' + Chiffres [n mod 10 + 10];
End;
If n=0 Then Writeln ('zéro')
Else
Writeln (result);
End.