Даны величины 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