Надо составить программу которая отображает произношении цифр

[Алиш]

Надо составить программу чтобы когда ведешь цифру от 1 до 100 она называла его.
Например:
1 - OduH
2 - dBa
3 - Tpu
4 - 4etbIpe
5 - p9tb и т.д. до 100.
Заранее большое спасибо!

[Don Karleone]

ICQ в подписи, стучите.

[Volt]

Могу вам помочь пишите email: programmerlab@mail.ru или icq: 356-774-206

[Stilet]

 const adyn:array[1..10] of string=('Один','два','три','четыре','пять','шесть','семь','восемь','девять','десять');
 const desat:array[2..9] of string=('двадцать','тридцать','сорок','пятьдесят','шестьдесят','семьдесят','восемдесят','девяносто');
var e,i,v,v2:integer;s,Result:string;
begin
 s:='59';
 if length(s)=1 then begin     val(s,v,e);
  Result:=adyn[v]
 end else begin
  if s[1]='1' then begin
   val(s[2],v,e);
   Result:=adyn[v]+'надцать'
  end else begin
   val(s[1],v,e);val(s[2],v2,e);
   Result:=desat[v]+' '+adyn[v2];
  end;
 end;
write(Result);readln;
end.