Игра "Числа" (паскаль)

[Таня.Ку]

дано натуральное число n(n<1001). Записать это число русскими словами (семнадцать,двести пятьдесят три, тысяча и т.д.).

[RUSt88]

писал когда это дело на C# (распознает число до 999 триллиардов), пиши на мыло, договоримся
а так в сети полно реализованного кода для таких дел на разных языках, погугли, если лень, то пиши )

[sir.andrey]

Когда то в молодости делал!
Вои подобное дело:

program LAB_2;
 label 1,2,3,4;
 type  chislo=0..999;
 var a:chislo;
     e,b,c,d:integer;
begin
writeln ('vvedite chislo ot 0 do 999');
read (a);
  if a=0 then goto 3;
b:=round(a div 100);
   case b of
         0: write (' ');
         1: write (' cto');
         2: write (' dvesti');
         3: write (' trista');
         4: write (' chetiresta');
         5: write (' pyatsot');
         6: write (' shestsot');
         7: write (' semsot');
         8: write (' vosemsot');
         9: write (' devyatsot');
   end;
c:=a mod 100;
d:=round(c div 10);
   case d of
         0: write (' ');
         1: goto 1;
         2: write (' dvadzat');
         3: write (' tridzat');
         4: write (' sorok');
         5: write (' patdesat');
         6: write (' shestdesat');
         7: write (' semdesat');
         8: write (' vosemdesat');
         9: write (' devanosto');
   end;
e:=round(c mod 10);
   case e of
         0: write (' ');
         1: write (' odin');
         2: write (' dva');
         3: write (' tri');
         4: write (' chetire');
         5: write (' pyat');
         6: write (' shest');
         7: write (' sem');
         8: write (' vosem');
         9: write (' devat');
   end;
goto 2;
1: case c of
         10: write (' desat');
         11: write (' odinadzat');
         12: write (' dvenadzat');
         13: write (' trinadzat');
         14: write (' chetirnadzat');
         15: write (' pyatnadzat');
         16: write (' semnadzat');
         18: write (' vosemnadzat');
         19: write (' devatnadzat');
   end;
2: goto 4;
3: writeln ('nol');
4: readln; readln;
end.