Составить программу на языке паскаль для преобразования цифр в слова.

var

c:integer;

begin

write ('Введите цифру ') ; readln (c) ;

case c of

0: writeln ('Ноль') ;

1: writeln ('Один') ;

2: writeln ('Два') ;

3: writeln ('Три') ;

4: writeln ('Четыре') ;

5: writeln ('Пять') ;

6: writeln ('Шесть') ;

7: writeln ('Семь') ;

8: writeln ('Восемь') ;

9: writeln ('Девять') ;

end;

end.

Так что ли?