begin
'0123456'.Cartesian(5) // 7-рич­ная 5-знач­ных
.Where(s->s[1] <> '0') // Пер­вой циф­рой не может быть 0
.Where(s->s[1] in '246') // на­чи­на­ют­ся с чётных цифр 2,4,6
.Where(s->s.Last not in '23') // не окан­чи­ва­ет­ся циф­ра­ми 2,3
.Where(s->s.CountOf('1')>=2) // не менее двух цифр 1
.Count.Print;
end.