По введённому числу вывести его название (числа только натуральные, от 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('Двадцать');
))