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

))