[Ghost]

pro
Была таже проблема: есть пять букв, нужно из них составить осмсленное английское слово, которое является паролем для открытия дверей. 5 букв - 120 вариантов различных комбинаций букв. Английский я знаю плохо. Но мы же программисты!!! Пишем прогу, которая выводит все искомые комбинации, выбираем из них какой-либо более-менее известный и вводим. Вот исходник программы на паскале:

uses
  crt;

const
  mw: string = 'RAGET';
  k: integer = 0;

procedure words (s: string); far;
var
  i: integer;
begin
  if length(s) = length(mw) then begin
    inc(k);
    writeln(k:3, ' ', s);
    if (k mod 24) = 0 then begin
      readkey;
      clrscr;
    end;
  end else for i := 1 to length(mw) do
    if pos(mw[i], s) = 0 then words (s + mw[i]);
end;

begin
  clrscr;
  words ('');
end.

У меня, как вы понимаете, были буквы RAGET, искомое слово, как выяснилось - GREAT. В проге нужно изменить константу mw, запустить прогу и выбрать...