Напиши код на паскале, для этой задачи: Вася составляет пятибуквенные слова из букв слова УДАЧА. Каждая буква может не входить или входить в слово многократно. Первая буква может быть только гласной. Все различные подходящие слова записали в алфавитном порядке и пронумеровали, начиная с 1. Под каким номером стоит слово УДАЧА?

Программа на Паскале для нахождения номера слова "УДАЧА":

Program Words;
Var n, i, ans: Integer;

Function Factorial(num: Integer): Integer;
Begin
  If num = 0 Then
    Factorial := 1
  Else
    Factorial := num * Factorial(num - 1);
End;

Function Permute(n, m: Integer): Integer;
Begin
  Permute := Factorial(n) div Factorial(n - m);
End;

Begin
  ans := 0;
  For i := 1 to 5 Do
    ans := ans + Permute(5, i);
  
  writeln(ans + 1); {Плюс 1, так как нужно начинать с 1, а не с 0}
End.

Ответ: слово "УДАЧА" стоит под номером 26.