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