{Фаил: Prog2_3.pas
Задача:
  Дано натуральное число n, меньше 1000. Вывести на экран это число в виде
числительного русского языка, то есть прописью.
Автор:

Дата:
  23.09.2015 }

program Prog2_3;
var
{Переменные}
    st:string;
    n:integer;
begin
{Ввод}
  writeln('Введите число от 1 до 999 n = ');
  readln(n);
  st:='';
{Условие}
if n<1000 then
{Названия сотен}
 case n div 100 of
  1:st:='Сто';
  2:st:='Двести';
  3:st:='Триста';
  4:st:='Четыреста';
  5:st:='Пятьсот';
  6:st:='Шестьсот';
  7:st:='Семьсот';
  8:st:='Восемьсот';
  9:st:='Девятьсот';
 end;
{Условные числа}
 case n mod 100 div 10 of
  2:st:=st+' двадцать';
  3:st:=st+' тридцать';
  4:st:=st+' сорок';
  5:st:=st+' пятьдесят';
  6:st:=st+' шестьдесят';
  7:st:=st+' семьдесят';
  8:st:=st+' восемьдесят';
  9:st:=st+' девяносто';
 end;
{Десятки}
 case n mod 100 of
  10:st:=st+' десять';
  11:st:=st+' одиннадцать';
  12:st:=st+' двенадцать';
  13:st:=st+' тринадцать';
  14:st:=st+' четырнадцать';
  15:st:=st+' пятнадцать';
  16:st:=st+' шестнадцать';
  17:st:=st+' семнадцать';
  18:st:=st+' восемнадцать';
  19:st:=st+' девятнадцать';
 else
{Единицы}
 case n mod 10 of
  1:st:=st+' один';
  2:st:=st+' два';
  3:st:=st+' три';
  4:st:=st+' четыре';
  5:st:=st+' пять';
  6:st:=st+' шесть';
  7:st:=st+' семь';
  8:st:=st+' восемь';
  9:st:=st+' девять';
 end;
{Вывод}
 end;
writeln(st);
end.