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