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

Программа на Pascal для решения задачи:

program WordsFromUDACHA;

var
  word: String;
  count: LongInt;

procedure GenerateWords(position: LongInt);
begin
  if position = 6 then
  begin
    count := count + 1;
    if word = 'УДАЧА' then
      writeln(count);
  end
  else
  begin
    if position = 1 then
    begin
      word[position] := 'У';
      GenerateWords(position + 1);
      word[position] := 'Д';
      GenerateWords(position + 1);
      word[position] := 'Ч';
      GenerateWords(position + 1);
    end
    else
    begin
      word[position] := 'У';
      GenerateWords(position + 1);
      word[position] := 'Д';
      GenerateWords(position + 1);
      word[position] := 'А';
      GenerateWords(position + 1);
      word[position] := 'Ч';
      GenerateWords(position + 1);
    end;
  end;
end;

begin
  word := '      ';
  count := 0;
  GenerateWords(1);
end.

Слово "УДАЧА" стоит под номером 53.