Шифр Атбаш — это простой метод замены букв в алфавите, где первая буква заменяется на последнюю, вторая — на предпоследнюю и так далее. В этом задании мы будем использовать язык программирования Pascal для реализации этого шифра без использования массивов.

Для начала, давайте определим, что нам нужно сделать:

1. Задать переменные для букв алфавита.
2. Прочитать символ, который нужно зашифровать.
3. Определить, какая буква заменяет введённый символ, и вывести результат.

Теперь давайте напишем программу:

program AtbashCipher;
var
    inputChar: char;
    outputChar: char;
begin
    writeln('Введите букву от A до Z:');
    readln(inputChar);
    
    // Проверяем, является ли введённый символ заглавной буквой
    if (inputChar >= 'A') and (inputChar <= 'Z') then
    begin
        // Применяем шифр Атбаш
        outputChar := chr(90 - ord(inputChar) + 65);
        writeln('Зашифрованная буква: ', outputChar);
    end
    else
        writeln('Ошибка: введите заглавную букву от A до Z.');
end.

Объяснение программы:

• Сначала мы объявляем переменные inputChar и outputChar для хранения введенного символа и результата соответственно.
• Затем программа запрашивает у пользователя ввод буквы от A до Z.
• С помощью условия if мы проверяем, находится ли введённый символ в диапазоне от 'A' до 'Z'.
• Если буква корректная, мы используем формулу outputChar := chr(90 - ord(inputChar) + 65); для определения зашифрованного символа. Здесь ord(inputChar) возвращает код символа, а chr преобразует код обратно в символ.
• Если буква не соответствует условиям, выводим сообщение об ошибке.

Таким образом, программа позволяет шифровать буквы по методу Атбаш без использования массивов. Вы можете протестировать программу, введя различные буквы, чтобы увидеть результат шифрования.