В тексте заменить цифры на их словесные названия (использовать Case).

var b:integer; begin readln(b); case b of 0: writeln('Нуль'); 1: writeln('Один'); 2: writeln('Два'); 3: writeln('Три'); 4: writeln('Четыре'); 5: writeln('Пять'); 6: writeln('Шесть'); 7: writeln('Семь'); 8: writeln('Восемь'); 9: writeln('Девять'); end; end.