var
  Form1: TForm1;
  FirstSymb:array[0..100] of string[10];

procedure TForm1.Button1Click(Sender: TObject);
Var
  i, j, p: integer;
  InputSt, OutputSt, TempSt1, TempSt2, SearchSt: string;
begin
InputSt := Edit1.Text;
TempSt1 := 'one';
P := SearchString(TempSt1,InputSt,2);
Label1.Caption := IntToStr(P);
{for I := 0 to 9 do
begin
  SearchSt := FirstSymb[i];
  P := Pos(SearchSt,InputSt);
  if P <> 0 then
  if P <> 1 then Showmessage('Ошибка такого числа нету')
  else
  begin
   TempSt1 := IntToStr(I);
   TempSt2 := IntToStr(J);
   OutputSt := TempSt1[1]+TempSt2;
  end;
end;
Label1.Caption := OutputSt;}
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FirstSymb[0] := 'zero';
FirstSymb[1] := 'one';
FirstSymb[2] := 'two';
FirstSymb[3] := 'three';
FirstSymb[4] := 'four';
FirstSymb[5] := 'five';
FirstSymb[6] := 'six';
FirstSymb[7] := 'seven';
FirstSymb[8] := 'eight';
FirstSymb[9] := 'nine';
FirstSymb[10] := 'ten';
FirstSymb[11] := 'eleven';
FirstSymb[12] := 'twelve';
FirstSymb[13] := 'thirteen';
FirstSymb[14] := 'fourteen';
FirstSymb[15] := 'fifteen';
FirstSymb[16] := 'sixteen';
FirstSymb[17] := 'seventeen';
FirstSymb[18] := 'eighteen';
FirstSymb[19] := 'nineteen';
FirstSymb[20] := 'twenty';
FirstSymb[30] := 'thirty';
FirstSymb[40] := 'fourty';
FirstSymb[50] := 'fifty';
FirstSymb[60] := 'sixty';
FirstSymb[70] := 'seventy';
FirstSymb[80] := 'eighty';
FirstSymb[90] := 'ninety';
end;

procedure TForm1.Button1Click(Sender: TObject);
Var
  i, j, p, z, sum: integer;
  InputSt, OutputSt, TempSt1, TempSt2, SearchSt: string;
  Error: boolean;
begin
Error := True;
InputSt := Edit1.Text;
for I := 0 to 90 do
for J := 0 to 90 do
begin
  if InputSt = FirstSymb[i]+' '+FirstSymb[j]  then
  begin
   TempSt1 := IntToStr(I);
   TempSt2 := IntToStr(J);
   OutputSt := TempSt1[1]+TempSt2;
   Error := False;
  end;
  if InputSt = FirstSymb[i] then
  begin
   OutputSt := IntToStr(i);
   Error := False;
  end;
end;
for I := 0 to 9 do
   if InputSt = FirstSymb[i]+' '+'hundred' then
    OutputSt := IntToStr(i)+'00';
for I := 0 to 9 do
   for J := 0 to 90 do
   if InputSt = FirstSymb[i]+' '+'hundred'+' '+FirstSymb[j] then
      begin
        if j <= 9 then
        begin
          OutputSt := IntToStr(I)+'0'+IntToStr(J);
          Error := False;
        end;
        if j>=10 then
        begin
          OutputSt := IntToStr(I)+IntToStr(J);
          Error := False;
        end;
      end;
for I := 0 to 9 do
   for J := 0 to 90 do
     for Z := 0 to 9 do
       if InputSt = FirstSymb[i]+' '+'hundred'+' '+FirstSymb[j]+' '+FirstSymb[z] then
       begin
         TempSt1 := IntToStr(J);
         OutputSt := IntToStr(I)+TempSt1[1]+IntToStr(Z);
         Error := False;
       end;


Label1.Caption := OutputSt;
if Error = True then ShowMessage('Ошибка такой цифры нет');

end;

procedure Poisk(InSlovo: String);
var
S: String;    {считанная строка <=255 символов}
len: integer; {длина считанной строки}
kol: byte; {номер слова}
p: byte; {номер рассматриваемого символа в строке}
Slovo: string; {выделяемое слово}
I, J, Z: integer; {переменные для прогона}
TempSt1, TempSt2, OutputSt: string;
begin
{считываем строку S}
S := InSlovo;
len:=Length(S); {длина строки S}
kol:=0;   {рассмотрено 0 слов}
p:=1;     {начнем с первого символа}
{пропустить пробелы в начале строки}
while (p<=len) and (S[p]=' ') do p:=p+1;
{выделяем слова пока не конц строки}
while (p<=len) do
begin
   {выделяем слово до пробела, запятой или конца строки}
   Slovo:='';
   while (p<=len) and (S[p]<>' ') do
   begin
     Slovo:=Slovo + S[p];  {складываем символы в слово}
     p:=p+1;               {к следующему символу}
   end;
   if Slovo<>'' then  {если слово найдено}
   begin
     Kol:=Kol+1;     {увеличиваем количество найденных слов}
     showmessage(IntToStr(kol)+' '+Slovo); {вывод слова и его номера}
     for I := 0 to 90 do
     begin
       if Slovo = FirstSymb[i] then
           OutSlovo := OutSlovo + ' ' + IntToStr(i);
     end;
    end;
   {пропускаем пробелы и запятые, не выходя за пределы строки}
   while (p<=len) and (S[p]=' ') do p:=p+1;
end;
end;

program Prj_chis;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
   S: ShortString = '8 0 20 т 19 т 9 с 90 9';        // от 0 до 20000
var
   chislo: integer;
   poslednee, poryadok, predporyadok: byte;

len: integer; {длина считанной строки}
p: byte; {номер рассматриваемого символа в строке}
Slovo: string; {выделяемое слово}

begin
{считываем строку S}
//write('S=?'); readln(S);

len:=Length(S); {длина строки S}
p:=1;     {начнем с первого символа}
chislo:=-1; poryadok:=0; predporyadok:=100; poslednee:= 0;

{пропустить пробелы в начале строки}
while (p<=len) and (S[p]=' ') do p:=p+1;
{выделяем слова пока не конц строки}
while (p<=len) do
begin
   {выделяем слово до пробела, запятой или конца строки}
   Slovo:='';
   while (p<=len) and (S[p]<>' ') do
   begin
     Slovo:=Slovo + S[p];  {складываем символы в слово}
     p:=p+1;               {к следующему символу}
   end;
   if Slovo<>'' then  {если слово найдено}
   begin
//   --------------

     if Slovo='0' then  // 0
     begin
       if chislo<>-1 then writeln(chislo);
       writeln(0);
       chislo:=-1; poslednee:=0;
       poryadok:=1; predporyadok:=100;
     end;

     if (length(Slovo)=1) and (Slovo[1] in ['1'..'9']) then //1..9
       begin
         if poryadok <=1 then
         begin
           if chislo<>-1 then writeln(chislo);
           chislo:= -1;
         end
         else
         begin
           chislo:=chislo+Ord(Slovo[1])-48; poslednee:= Ord(Slovo[1])-48;
           predporyadok:=poryadok; poryadok:=1;
         end;
         if chislo=-1 then
         begin
           chislo:=Ord(Slovo[1])-48; poslednee:=Ord(Slovo[1])-48;
           poryadok:=1; predporyadok:=100;
         end;
       end;

     if (length(Slovo)=2) and (Slovo[2]='0') then //10 20 30 ... 90
     begin
       if poryadok<=2 then
         begin
           if chislo<>-1 then writeln(chislo);
           chislo:= -1;
         end
         else
         begin
           chislo:=chislo+(Ord(Slovo[1])-48)*10; poslednee := (Ord(Slovo[1])-48)*10;
           predporyadok:=poryadok; poryadok:=2;
           if Slovo='10' then poryadok:=1;
         end;
         if chislo=-1 then
         begin
           chislo:=(Ord(Slovo[1])-48)*10; poslednee:=(Ord(Slovo[1])-48)*10;
           poryadok:=2; predporyadok:=100;
           if Slovo='10' then poryadok:=1;
         end;
     end;

     if (length(Slovo)=2) and (Slovo[2]<>'0') then  //11..19
     begin
       if poryadok<=2 then
         begin
           if chislo<>-1 then writeln(chislo);
           chislo := -1;
         end
         else
         begin
           chislo:=chislo+Ord(Slovo[2])-48+10; poslednee:= Ord(Slovo[2])-48+10;
           predporyadok:=poryadok; poryadok:=1;
         end;
         if chislo=-1 then
         begin
           chislo:=Ord(Slovo[2])-48+10; poslednee:=Ord(Slovo[2])-48+10;
           poryadok:=1; predporyadok:=100;
         end;
     end;

     if Slovo = 'т' then  //tysyach
     begin
       if predporyadok<=4 then
         begin
           chislo:= chislo-poslednee;
           if chislo<>0 then writeln(chislo);
           chislo:= poslednee*1000;
           poslednee:=0; poryadok:=4;
         end
         else
         begin
           chislo:=chislo-poslednee+ poslednee*1000;
           poslednee:=0; poryadok:=4;
         end;
     end;

     if Slovo = 'с' then //soten
     begin
       if predporyadok<=3 then
         begin
           chislo:= chislo-poslednee;
           if chislo<>0 then writeln(chislo);
           chislo:= poslednee*100;
           poslednee:=0; poryadok:=3;
         end
         else
         begin
           chislo:=chislo-poslednee+ poslednee*100;
           poslednee:=0; poryadok:=3;
         end;
     end;

//   --------------
   end;
   {пропускаем пробелы и запятые, не выходя за пределы строки}
   while (p<=len) and (S[p]=' ') do p:=p+1;
end;
   if chislo>0 then writeln(chislo);


   readln;

end.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
   S: ShortString = 'nine zero two hundred twenty one';        // от 0 до 999
var
   chislo, i, j, z: integer;
   poslednee, poryadok, predporyadok: byte;
   Symb: array[0..100] of string[10];
   Temp, Temp2, Temp3: string;

len: integer; {длина считанной строки}
p: byte; {номер рассматриваемого символа в строке}
Slovo: string; {выделяемое слово}

begin
Symb[10] := 'ten';
Symb[20] := 'twenty';
Symb[30] := 'thirty';
Symb[40] := 'fourty';
Symb[50] := 'fifty';
Symb[60] := 'sixty';
Symb[70] := 'seventy';
Symb[80] := 'eighty';
Symb[90] := 'ninety';

Symb[1] := 'one';
Symb[2] := 'two';
Symb[3] := 'three';
Symb[4] := 'four';
Symb[5] := 'five';
Symb[6] := 'six';
Symb[7] := 'seven';
Symb[8] := 'eight';
Symb[9] := 'nine';

Symb[11] := 'eleven';
Symb[12] := 'twelve';
Symb[13] := 'thirteen';
Symb[14] := 'fourteen';
Symb[15] := 'fifteen';
Symb[16] := 'sixteen';
Symb[17] := 'seventeen';
Symb[18] := 'eighteen';
Symb[19] := 'nineteen';

{считываем строку S}
//write('S=?'); readln(S);

len:=Length(S); {длина строки S}
p:=1;     {начнем с первого символа}
chislo:=-1; poryadok:=0; predporyadok:=100; poslednee:= 0;

{пропустить пробелы в начале строки}
while (p<=len) and (S[p]=' ') do p:=p+1;
{выделяем слова пока не конц строки}
while (p<=len) do
begin
   {выделяем слово до пробела, запятой или конца строки}
   Slovo:='';
   while (p<=len) and (S[p]<>' ') do
   begin
     Slovo:=Slovo + S[p];  {складываем символы в слово}
     p:=p+1;               {к следующему символу}
   end;
   if Slovo<>'' then  {если слово найдено}
   begin
//   --------------

     if Slovo='zero' then  // 0
     begin
       if chislo<>-1 then writeln(chislo);
       writeln(0);
       chislo:=-1; poslednee:=0;
       poryadok:=1; predporyadok:=100;
     end;

     for J := 0 to 9 do
     if (Slovo=Symb[j]) then //1..9
       begin
         if poryadok <=1 then
         begin
           if chislo<>-1 then writeln(chislo);
           chislo:= -1;
         end
         else
         begin
           Temp2:=IntToStr(J);
           chislo:=chislo+Ord(Temp2[1])-48; poslednee:= Ord(Temp2[1])-48;
           predporyadok:=poryadok; poryadok:=1;
         end;
         if chislo=-1 then
         begin
           Temp2:=IntToStr(J);
           chislo:=Ord(Temp2[1])-48; poslednee:=Ord(Temp2[1])-48;
           poryadok:=1; predporyadok:=100;
         end;
       end;

     for I := 0 to 90 do
     if (Slovo=Symb[i]) then //20 30 ... 90
     begin
       if poryadok<=2 then
         begin
           if chislo<>-1 then writeln(chislo);
           chislo:= -1;
         end
         else
         begin
           Temp := IntToStr(i);
           chislo:=chislo+(Ord(Temp[1])-48)*10; poslednee := (Ord(Temp[1])-48)*10;
           predporyadok:=poryadok; poryadok:=2;
         end;
         if chislo=-1 then
         begin
           chislo:=(Ord(Temp[1])-48)*10; poslednee:=(Ord(Temp[1])-48)*10;
           poryadok:=2; predporyadok:=100;
         end;
     end;

     for Z := 11 to 19 do
     if (Slovo=Symb[z]) then  //11..19
     begin
       if poryadok<=2 then
         begin
           if chislo<>-1 then writeln(chislo);
           chislo := -1;
         end
         else
         begin
           Temp3:=IntToStr(z);
           chislo:=chislo+Ord(Temp3[2])-48+10; poslednee:= Ord(Temp3[2])-48+10;
           predporyadok:=poryadok; poryadok:=1;
         end;
         if chislo=-1 then
         begin
           Temp3:=IntToStr(z);
           chislo:=Ord(Temp3[2])-48+10; poslednee:=Ord(Temp3[2])-48+10;
           poryadok:=1; predporyadok:=100;
         end;
     end;

     if Slovo = 'hundred' then //soten
     begin
       if predporyadok<=3 then
         begin
           chislo:= chislo-poslednee;
           if chislo<>0 then writeln(chislo);
           chislo:= poslednee*100;
           poslednee:=0; poryadok:=3;
         end
         else
         begin
           chislo:=chislo-poslednee+ poslednee*100;
           poslednee:=0; poryadok:=3;
         end;
     end;

//   --------------
   end;
   {пропускаем пробелы и запятые, не выходя за пределы строки}
   while (p<=len) and (S[p]=' ') do p:=p+1;
end;
   if chislo>0 then writeln(chislo);


   readln;
   writeln;

end.

           Temp2:=IntToStr(J);
           chislo:=chislo+Ord(Temp2[1])-48; poslednee:= Ord(Temp2[1])-48;

           chislo:=chislo+J; poslednee:= J;