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