Задание 8 ЕГЭ

Pascalabc.net:
//Света составляет 6-буквенные слова из букв С, О, Л, Н, Ц, Е,
//причём буква О встречается в слове не более 2 раз, а буква Ц — ровно 1 раз.
//Буквы могут повторяться. Сколько таких слов может составить Света?
##
begin
var count: integer;
var w:=['С','О','Л','Н','Ц','Е'];
foreach var i1: char in w do
  foreach var i2: char in w do
    foreach var i3: char in w do
      foreach var i4: char in w do
        foreach var i5: char in w do
          foreach var i6: char in w do
          begin
            var s:=i1+i2+i3+i4+i5+i6;
            if (s.CountOf('О')<=2) and (s.CountOf('Ц')=1) then count +=1; //pos('a',s) если есть хотя бы раз гласная 'a' в слове.
          end;
          count.Print;
end;
-------------------------------------------------------------------------------------------------------------------------
Pascal abc.net:
//составляет 5-буквенные коды из букв Р, У, С, Л, А, Н.
//Каждая допустимая гласная буква может входить в код не более одного раза.
//Сколько кодов может составить Руслан?
var слово: string;
var количество: integer;
procedure f(условие: string->boolean):=Hset(слово.Cartesian(количество).Select(x->x.JoinToString(''))).where(условие).count.print;
begin
  слово:='РУСЛАН';
  количество:=5;
  f(x->(x.Replace('А','').Count>=4) and (x.Replace('У','').Count>=4));
end.
------------------------------------------------------------------------------------------------------------------------------
Python:
# Все 5-буквенные слова, составленные из букв А, О, У, записаны в алфавитном порядке:
#1. ААААА
#2. ААААО
#3. ААААУ
#4. АААОА
#Запишите слово, которое стоит на 210-м месте от начала списка.
from itertools import *
a = list(product('АОУ', repeat=5))
print(''.join(a[209]))