Паскаль, программу написать надо, по паскалю, 30 ! ​

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

Еще пример: магазинные чеки. Не будет же машина (из-за технической сложности) или человек (из-за лени) писать на чеке: "продано столько-то столько-то того-то того-то ... пакет апельсинов весил шестьсот пядесят три грамма ... итд". На чеке будет табличка, где четко и точно будет написано то, что человек приобрел.
Вот. Так что табличные модели, несомненно, лучше словесных.

Const
    key = 3;

var
    i: integer;
    s: string;

function Encode(s: string; key: integer): string;
var
    i: integer;
begin
    for i := 1 to Length(s) do
        s[i] := chr(ord(s[i]) + key);
    Encode := s;
end;

function Decode(s: string; key: integer): string;
var
    i: integer;
begin
    for i := 1 to Length(s) do
        s[i] := chr(ord(s[i]) - key);
    Decode := s;
end;

begin
    write('Введите строку данных - ');
    readln(s);
    writeln('Выберите действие');
    writeln('1 - Закодировать');
    writeln('2 - Раскодировать');
    readln(i);
    case i of
        1: s := Encode(s, key);
        2: s := Decode(s, key);
    end;
    Writeln(s);
end.