Общее количество вариантов считается по формуле 
где n это длина алфавита, а m максимальная длина слова. 
= 81.
Теперь необходимо исключить повторяющиеся.
АААА, АААР, АААУ, РААА, УААА - 5 шт.
РРРР, РРРА, РРРУ, АРРР, УРРР - 5 шт.
УУУУ, УУУА, УУУР, АУУУ, РУУУ - 5 шт.
81 - 15 = 66 вариантов.
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
begin
var n:=ReadInteger('n=');
n.Step(n).TakeWhile(x->x<=50).Println
end.
S = 0
for i in range(2,101,2):
s = s+i
print("s=",s)
Результат:
<span>s= 2550</span>
2 шаг - 9 1 5 7
3 шаг - 9 7 5 1
