Передавая записку на уроке английского языка, друзья не хотят, чтобы кто-то прочел ее содержимое. Для этого текст шифруют простым методом: заменяют каждую букву на букву, расположенную в алфавите на расстоянии N символов от исходной. Считается, что алфавит циклически замкнут. Напишите программу-шифровальщик.

А "Первый вариант" зачем, если он неверный?

Убрал, но тогда и наши комменты надо тоже чистить, чтобы не вводить в заблуждение.

Когда задача и решения уйду в архив, все комментарии автоматически удалятся. Вообще все.

Именно поэтому мы требуем, чтобы все необходимое было в текстах вопроса и решений.

Я Вас понял.

Const  N = 5;  EN = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';  RU = 'абвгдеёжзийклмнопрстуфхцчшщьыъэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯ';Var  S : String;  i : Byte;Begin  Readln(S);  For i:=1 to Length(S) do  Begin    If Pos(S[i],EN)>0 then      If Pos(S[i],EN)+N<=Length(EN) then        S[i]:=EN[Pos(S[i],EN)+N] else S[i]:=EN[Pos(S[i],EN)+N-Length(EN)];    If Pos(S[i],RU)>0 then       If Pos(S[i],RU)+N<=Length(RU) then        S[i]:=RU[Pos(S[i],RU)+N] else S[i]:=RU[Pos(S[i],RU)+N-Length(RU)];  end;  Writeln(S);end.