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

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.

Так что ли?