Program String62;
Var
s : String;
i : Byte;
Begin
Write('Введите предложение на русском языке:');
ReadLn(s);
For i := 1 To Length(s) Do
If s[i] = 'Ё' Then
s[i] := 'Е'
Else
If s[i] = 'ё' Then s[i] := 'е';
For i := 1 To Length(s) Do
If s[i] In ['А'..'Ю'] Then
s[i] := Chr(Ord(s[i]) + 1)
Else
If s[i] = 'Я' Then
s[i] := 'А'
Else
If s[i] In ['а'..'ю'] Then
s[i] := Chr(Ord(s[i]) + 1)
Else
If s[i] = 'я' Then
s[i] := 'а';
WriteLn('Зашифрованная строка:', s);
ReadLn;
End.