begin
'0123456789abcdef'.Cartesian(4) // 16-рич­ная 4-знач­ных
.Where(s->s[1] <> '0') // Пер­вой циф­рой не может быть 0
.Where(s->s.CountOf('3')=1) // толь­ко одна цифра 3
.Where(s->(s[1]<>s[2])and(s[2]<>s[3])and(s[3]<>s[4])) // ни­ка­кие две оди­на­ко­вые цифры не стоят рядом
.Count.Print;
end.