Пример программы на Pascal для кодирования текста с помощью тарабарской грамоты:

program TarabarEncoder;
const
TarabarAlphabet: array[1..32] of string = ('а', 'б', 'в', 'г', 'д', 'е', 'ё', 'ж', 'з', 'и', 'й', 'к', 'л', 'м', 'н', 'о', 'п', 'р', 'с', 'т', 'у', 'ф', 'х', 'ц', 'ч', 'ш', 'щ', 'ъ', 'ы', 'ь', 'э', 'ю', 'я');
var
inputText: string;
encodedText: string;
i, j: integer;
begin
writeln('Введите текст для кодирования:');
readln(inputText);
encodedText := '';
for i := 1 to length(inputText) do
begin
for j := 1 to 32 do
begin
if lowercase(inputText[i]) = TarabarAlphabet[j] then
begin
encodedText := encodedText + TarabarAlphabet[j];
break;
end;
end;
end;
writeln('Закодированный текст:');
writeln(encodedText);
end.

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