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

// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017

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