斯诺登的密码

var
 a:array[1..6]of string;
 s,ss,t:string;
 x:char;
 n,i,j,b:longint;
begin
 while x<>'.' do
 begin
  read(x);
  s:=s+x;
 end;
 for i:=1 to 6 do
 begin
  b:=pos(' ',s);
  ss:=copy(s,1,b-1);
  if (ss='zero')then a[i]:='00';
  if (ss='one')or(ss='a')or(ss='another')or(ss='first') then a[i]:='01';
  if (ss='two')or(ss='both')or(ss='second') then a[i]:='04';
  if (ss='three')or(ss='third') then a[i]:='09';
  if (ss='four') then a[i]:='16';
  if ss='five' then a[i]:='25';
  if ss='six' then a[i]:='36';
  if ss='seven' then a[i]:='49';
  if ss='eight' then a[i]:='64';
  if ss='nine' then a[i]:='81';
  if ss='ten' then a[i]:='00';
  if ss='eleven' then a[i]:='21';
  if ss='twelve' then a[i]:='44';
  if ss='thirteen' then a[i]:='69';
  if ss='fourteen' then a[i]:='96';
  if ss='fifteen' then a[i]:='65';
  if ss='sixteen' then a[i]:='56';
  if ss='seventeen' then a[i]:='89';
  if ss='eighteen' then a[i]:='24';
  if ss='nineteen' then a[i]:='61';
  if ss='twenty' then a[i]:='00';
  delete(s,1,b);
 end;
 for i:=1 to 5 do
  for j:=i+1 to 6 do
 if a[i]>a[j] then
 begin
  t:=a[i];
  a[i]:=a[j];
  a[j]:=t;
 end;
 s:='';
 for i:=1 to 6 do
  s:=s+a[i];
 i:=1;
 if s='' then write(0);
 while (s[i]='0')and(i<length(s)) do
 inc(i);
 for j:=i to length(s) do
 write(s[j]);
end.