Среда разработки: Turbo Pascal 7.1

var d:integer;
    x:byte;
begin
write('Введите число: ');
readln(d);

x:=d div 100 mod 10;
case x of
     1:write('сто ');
     2:write('двести ');
     3:write('триста ');
     4:write('четыреста ');
     5:write('пятьсот ');
     6:write('шестьсот ');
     7:write('семьсот ');
     8:write('восемьсот ');
     9:write('девятьсот ');
end;

x:=d div 10 mod 10;
case x of
     1:begin
            x:=d mod 10;
            case x of
		 0:writeln('десять');
                 1:writeln('одиннадцать');
                 2:writeln('двенадцать');
                 3:writeln('тринадцать');
                 4:writeln('четырнадцать');
                 5:writeln('пятнадцать');
                 6:writeln('шестнадцать');
                 7:writeln('семнадцать');
                 8:writeln('восемнадцать');
                 9:writeln('девятнадцать');
            end;
       readln;
       exit;
       end;
     2:write('двадцать ');
     3:write('тридцать ');
     4:write('сорок ');
     5:write('пятьдесят ');
     6:write('шестьдесят ');
     7:write('семьдесят ');
     8:write('восемьдесят ');
     9:write('девяносто ');
end;

x:=d mod 10;
case x of
     1:writeln('один');
     2:writeln('два');
     3:writeln('три');
     4:writeln('четыре');
     5:writeln('пять');
     6:writeln('шесть');
     7:writeln('семь');
     8:writeln('восемь');
     9:writeln('девять');
end;
readln
end.