Информатика. Написать программу в Паскаль. Ввести 4 числа a, b, c, d. Поменять местами сначала a и d, затем c и b, потом a и b

begin
  var (a,b):=ReadInteger2('Введите a и b->');
  var (c,d):=ReadInteger2('Введите c и d->');
  swap(a,d); swap(c,b); swap(a,b);
  Println(a,b,c,d);
end.


Введите a и b-> 1 2
Введите c и d-> 3 4
Результат: 3 4 2 1