"написать программу код Цезаря на Паскале авс"

Программа для кодирования Цезаря на языке Pascal может выглядеть примерно так:

program CaesarCipher;
uses crt;

procedure CaesarEncryptDecrypt(var message: string; shift: integer);
var
  i: integer;
begin
  for i := 1 to Length(message) do
  begin
    if message[i] <> ' ' then
      message[i] := Chr(Ord(message[i]) + shift);
  end;
end;

var
  message: string;
  shift: integer;
begin
  clrscr;
  writeln('Введите сообщение для шифрования/дешифрования: ');
  readln(message);
  writeln('Введите сдвиг: ');
  readln(shift);
  
  CaesarEncryptDecrypt(message, shift);
  
  writeln('Результат: ', message);
  readln;
end.

Пожалуйста, убедитесь, что вы используете совместимую версию среды разработки Pascal и правильно настроили необходимые зависимости (здесь используется модуль crt для очистки экрана и работы с клавишами). Удачи на экзамене!