Даны величины a,b,c,d. требуется переставить значения величин так: в должно получить значение а, с значение в, d значение с, а а значение d.

Это вариант замены значений со сдвигом по кольцу. Делается через вс переменную.

var
  a, b, c, d, t: integer;

begin
  Write('Введите четыре целых числа через пробел: ');
  Readln(a, b, c, d);
  t := d;
  d := c;
  c := b;
  b := a;
  a := t;
  Writeln(a, ' ', b, ' ', c, ' ', d)
end.

Тестовое решение:
Введите четыре целых числа через пробел: 1 2 3 4
4 1 2 3

Создавай доп. переменную, в которую копируй значение пер-й "А". Дальше переставляй В в А, С в В а D в C. Потом из доп. переменной значение А кидай в D