Пожалуйста СРОЧНО!!!
Чтобы попасть в гостиницу «Криптосфера» каждому сотруднику необходимо знать свой личный пароль. Пароли всем выдали в виде зашифрованного текста вместе с таблицей 1 и попросили расшифровать пароль. Помогите Олегу узнать свой пароль, чтобы завтра попасть на работу.
Зашифрованный текст: «ЗЫФЙГФШРЦ . ШД»
Таблица 1.
А Б В Г Д Е
Ё Ж З И Й К
Л М Н О П Р
С Т У Ф Х Ц
Ч Ш Щ Ъ Ы Ь
Э Ю Я _ . ,

Чувак, просто ответ нужен

Понял.

просто на этом сайте если нужен только ответ, то указывайте это явно, т.к. не полные ответы, т.е. без объяснения как это было сделано, считаются не правильными и модераторы их удаляют - поэтому я и привет не только ответ, но и то как его можно получить.

*привёл

Дешифровка: ВХОД_ОТКР Ы Т.Способ дешифровки:Const sh = 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ_.,';Var  St : String;  i  : Integer;Function DeCode(S : String; Tabl : String; k : Integer) : String;Var j,n : Integer;Begin  For j:=1 to Length(S) do  Begin    n:=Pos(S[j],sh);    If n>0 then    Begin      n:=n+k;      While n>Length(sh) do n:=n-Length(sh);      While n<=0 do n:=n+Length(sh);      S[j]:=sh[n];    end  end;  DeCode:=S;end;Begin  St:='ЗЫФЙГФШРЦ . ШД';  Writeln(Decode(St,sh,-6));  //For i:=-10 to 10 do Writeln(Decode(St,sh,i));end.