1. Вводится строка текста из N символов, слова разделены одним пробелом. Составьте программу, печатающую первое слово в строке в оьратном порядке.

uses crt;
var
   n:integer;
   f,s,l:string;
begin
 clrscr;
 write('Ââåäèòå ÷èñëî=');
 readln(n);
 if (n>=10) and (n<20) then
  begin
   case n of
    10:writeln('äåñÿòü');
    11:writeln('îäèííàäöàòü');
    12:writeln('äâåíàäöàòü');
    13:writeln('òðèíàäöàòü');
    14:writeln('÷åòûðíàäöàòü');
    15:writeln('ïÿòíàäöàòü');
    16:writeln('øåñòíàäöàòü');
    17:writeln('ñåìüíàäöàòü');
    18:writeln('âîñåìüíàäöàòü');
    19:writeln('äåâÿòíàäöàòü');
   end;
  end else
  begin
   case n div 100 of
    9:f:='äåâÿòüñîò';
    8:f:='âîñåìüñîò';
    7:f:='ñåìüñîò';
    6:f:='øåñòüñîò';
    5:f:='ïÿòüñîò';
    4:f:='÷åòûðåñòà';
    3:f:='òðèñòà';
    2:f:='äâåñòè';
    1:f:='ñòî';
    0:f:='';
   end;
   case n div 10 mod 10 of
    9:s:='äåâÿíîñòî';
    8:s:='âîñåìüäåñÿò';
    7:s:='ñåìüäåñÿò';
    6:s:='øåñòüäåñÿò';
    5:s:='ïÿòüäåñÿò';
    4:s:='ñîðîê';
    3:s:='òðèäöàòü';
    2:s:='äâàäöàòü';
    1:s:='äåñÿòü';
    0:s:='';
   end;
   case n mod 10 of
    9:l:='äåâÿòü';
    8:l:='âîñåìü';
    7:l:='ñåìü';
    6:l:='øåñòü';
    5:l:='ïÿòü';
    4:l:='÷åòûðå';
    3:l:='òðè';
    2:l:='äâà';
    1:l:='îäèí';
    0:l:='';
   end;
   writeln(f,' ',s,' ',l);
  end;
 readln
end.