Пример программы на языке Паскаль:

program ConvertDigitsToWords;
var
number, remainder, quotient: integer;
word: string;
ones, tens: array$$\mathrm{1..9}$$ of string;
begin
ones$$1$$ := 'One'; ones$$2$$ := 'Two'; ones$$3$$ := 'Three'; ones$$4$$ := 'Four';
ones$$5$$ := 'Five'; ones$$6$$ := 'Six'; ones$$7$$ := 'Seven'; ones$$8$$ := 'Eight'; ones$$9$$ := 'Nine';
tens$$2$$ := 'Twenty'; tens$$3$$ := 'Thirty'; tens$$4$$ := 'Forty'; tens$$5$$ := 'Fifty';
tens$$6$$ := 'Sixty'; tens$$7$$ := 'Seventy'; tens$$8$$ := 'Eighty'; tens$$9$$ := 'Ninety';
write${}^{\prime }Enteranumber{:}^{\prime }$;
readln$number$;
if $number=0$ then
word := 'Zero'
else
begin
quotient := number div 10;
remainder := number mod 10;
if (quotient > 0) then
word := tens$$quotient$$ else
word := '';
if (remainder > 0) then
word := word + ' ' + ones$$remainder$$;
end;
writeln${}^{\prime }Wordrepresentationofthenumberis{:}^{\prime },word$;
end.

Программа запрашивает у пользователя целое число и преобразует его в слова, а затем выводит результат на экран.