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

))