Mégis mi a f*** baja van ezzel? (Pascal)

nem irhatsz bele ilyet:

case n of

(n div 10=1) : write('tizen');

maximum ilyet:

case (n div 10) of

1 : write('tizen');

Érdekességképpen, hibakezeléssel:

program numtochar;

{$APPTYPE CONSOLE} //Delphi miatt

var egyesek : array[1..9] of string = ('egy', 'kettő', 'három', 'négy', 'öt',

'hat', 'hét', 'nyolc', 'kilenc');

egesztizesek : array[1..9] of string = ('tiz', 'husz', 'harminc', 'negyven', 'ötven',

'hatvan', 'hetven', 'nyolcvan', 'kilencven');

tizesek : array[1..9] of string = ('tizen', 'huszon', 'harminc', 'negyven', 'ötven',

'hatvan', 'hetven', 'nyolcvan', 'kilencven');

szam_s, s : string;

szam, hiba : integer;

begin

while (hiba <> 0) or (szam > 100) or (szam < 1) do

begin

Write('Adjon meg egy számot (1-100), hogy kiirhassam betűkkel: ');

ReadLn(szam_s);

Val(szam_s, szam, hiba);

if hiba <> 0 then WriteLn('Nem számot adott meg !');

if (hiba = 0) and (szam > 100) then WriteLn('A szám nem lehet nagyob 100-nál !');

if (hiba = 0) and (szam < 1) then WriteLn('A szám nem lehet kisebb 1-nél !');

end;

if szam < 10 then s := egyesek[szam mod 10];

if szam mod 10 = 0 then s := egesztizesek[szam div 10];

if (szam > 10) and (szam < 100) then s := tizesek[szam div 10] + egyesek[szam mod 10];

if szam mod 100 = 0 then s := 'száz';

WriteLn(szam, ' betűvel: ', s);

ReadLn;

end.