По введённому числу вывести его название (числа только натуральные, от 20 до 99)

Var n : integer; 
begin 
write(Введите число ); readln(n); 
case n of 
20 : writeln(Двадцать); 
21 : writeln(Двадцать один); 
22: writeln(двадцать два ); 
23 : writeln(Двадцать три); 
24:writeln(Двадцать четыре); 
24:writeln(Двадцать пять); 
else writeln(Вы ввели недопустимую число! ) 
end; 
end. 
Чисел брат дофига ну ты понял 
а если вы кейс не проходил то используй просто 
if n=20 then write(Двадцать);
))