program Prj_chi2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
S: ShortString = 'twenty three ten 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];

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

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 := 1 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
chislo:=chislo+j; poslednee:= j;
predporyadok:=poryadok; poryadok:=1;
end;
if chislo=-1 then
begin
chislo:=j; poslednee:=j;
poryadok:=1; predporyadok:=100;
end;
end;

for I := 20 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
chislo:=chislo+i; poslednee := i;
predporyadok:=poryadok; poryadok:=2;
end;
if chislo=-1 then
begin
chislo:=i; poslednee:=i;
poryadok:=2; predporyadok:=100;
if i=10 then poryadok:=1;
end;
end;

for Z := 10 to 19 do
if (Slovo=Symb[z]) then //10..19
begin
if poryadok<=2 then
begin
if chislo<>-1 then writeln(chislo);
chislo := -1;
end
else
begin

chislo:=chislo+z; poslednee:= z;
predporyadok:=poryadok; poryadok:=1;
end;
if chislo=-1 then
begin
chislo:=z; poslednee:=z;
poryadok:=1; predporyadok:=100;
end;
end;

if (Slovo = 'hundred') or (Slovo = 'hundreds') 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.

procedure TForm1.Button1Click(Sender: TObject);
var
S: String;
A: Array[0..9] of String[7];
B: Array[10..27] of String[7];
Ia,Ja: Integer;
Ib,Jb: Integer;
Sta: String;
Stb: String;
P: Integer;
Pt: Integer;

begin

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

B[10] := 'ten';
B[11] := 'eleven';
B[12] := 'twelve';
B[13] := 'thirteen';
B[14] := 'fourteen';
B[15] := 'fifteen';
B[16] := 'sixteen';
B[17] := 'seventeen';
B[18] := 'eighteen';
B[19] := 'nineteen';
B[20] := 'twenty';
B[21] := 'thirty';
B[22] := 'fourty';
B[23] := 'fifty';
B[24] := 'sixty';
B[25] := 'seventy';
B[26] := 'eighty';
B[27] := 'ninety';

S := Edit1.Text;
P := 0;
Pt := 0;

Pt := pos('hundred hundred',S);
if Pt > 0 then ShowMessage('Ошибка в порядке!'+#13+
'Слова в строке: '+ S + ' так идти не могут');

if S = 'hundred' then ShowMessage('Ошибка в порядке!'+#13+
'Слова в строке: '+ S + ' так идти не могут');

for Ia := 0 to 9 do
   for Ja := 0 to 9 do
     begin
       Sta := A[Ia]+' '+A[Ja];
       P := pos(Sta,S);
       if P > 0 then ShowMessage('Ошибка в порядке!'+#13+
       'Слова в строке: '+ S + ' так идти не могут');
     end;

for Ib := 10 to 27 do
   for Jb := 10 to 27 do
     begin
       Stb := B[Ib]+' '+B[Jb];
       P := pos(Stb,S);
       if P > 0 then ShowMessage('Ошибка в порядке!'+#13+
       'Слова в строке: '+ S + ' так идти не могут');
     end;

for Ia := 0 to 9 do
   for Jb := 10 to 27 do
     begin
       Sta := A[Ia]+' '+B[Jb];
       P := pos(Sta,S);
       if P > 0 then ShowMessage('Ошибка в порядке!'+#13+
       'Слова в строке: '+ S + ' так идти не могут');
     end;

for Ib := 10 to 27 do
   begin
     Sta := B[Ib]+' '+'hundred';
     P := pos(Sta,S);
     if P > 0 then ShowMessage('Ошибка в порядке!'+#13+
     'Слова в строке: '+ S + ' так идти не могут');
   end;

end;