В тексте заменить

цифры на их словесные названия (использовать 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.