Слово «рассказать» может быть сохранено в файле размером байтовКавычки при расчётах не учитываем.)​

var

a,b:string;

i:integer;

begin

readln(a);

readln(b);

For i:=1 to Length(a) do

 begin

 if (a[i]='3') then

 Begin

   Delete(a,i,1);

   InSert('e',a,i);

 End;

 if (a[i]='0') then

 Begin

   Delete(a,i,1);

   InSert('o',a,i);

 End;

 if (a[i]='1') then

 Begin

   Delete(a,i,1);

   InSert('i',a,i);

 End;

 if (a[i]='7') then

 Begin

   Delete(a,i,1);

   InSert('t',a,i);

 End;

 if (a[i]='4') then

 Begin

   Delete(a,i,1);

   InSert('a',a,i);

 End;

 if (a[i]='5') then

 Begin

   Delete(a,i,1);

   InSert('s',a,i);

 End;

 end;

if b in a then

 writeln('YES')

else

 writeln('NO')

end.