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('Двадцать');))