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.
200805
Объяснение:
ну может дата рождения