Даны величины A,B,C,D. Требуется переставить значения величин так: В должно получить значение А, С значение В, D значение С, а А значение D.

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