Exercice : Nombre en toutes lettres

program T-lettre;
uses wincrt;

{déclaration des variables}
var t:array[1..100] of string[15];
n:integer;


begin

{remplissage du tableau}
t[1]:='un';t[2]:='deux'; t[3]:='trois'; t[4]:='quatre';t[5]:='cinq';t[6]:='six';t[7]:='sept';
t[8]:='huit';t[9]:='neuf';t[10]:='dix';t[11]:='onze';t[12]:='douze';t[13]:='treize';
t[14]:='quatorze';t[15]:='quinze';t[16]:='seize';t[17]:='dix-sept';t[18]:='dix-huit';
t[19]:='dix-neuf';t[20]:='vingt';t[30]:='trente';t[40]:='quarante';t[50]:='cinquante';
t[60]:='soixante';t[70]:='soixante-dix';t[80]:='quatre-vingt';t[90]:='quatre-vingt-dix';

{sasie du chiffre et controle de saisie}
repeat
write('entrer un réel ' );
readln(n);
until n div 100 =0 ;

{recherche de résultat et affichage}
case n of
1..20:write(t[n]);
21,31,41,51,61,81:write(t[n-(n mod 10)], '-et-un');
71:write(t[60], '-et-onze');
91:write(t[80], '-et-onze');
22..29,32..39,42..49,52..59,62..69,82..89:write(t[n-(n mod 10)],' ',t[n mod 10]);
72..79,92..99:write(t[n-(n mod 10)-10],' ',t[(n mod 10)+10]);
end;
end.