Произвести обмен данных - Turbo Pascal

Всем привет, помогите написать программу. D=7, C=5 произвести обмен данных. Заранее спасибо!!!!

Листинг программы

var
  d, c: integer;
 
begin
  d := 7;
  c := 5;
  d := d + c;
  c := d - c;
  d := d - c;
  writeln('d = ', d);
  writeln('c = ', c);
end.

Объяснение кода листинга программы

Объявляются две переменные типа Integer: d и c.
Значение переменной d устанавливается равным 7.
Значение переменной c устанавливается равным 5.
Выполняется операция сложения d и c, результат которой сохраняется в переменной d.
Выполняется операция вычитания d и c, результат которой сохраняется в переменной c.
Выполняется операция вычитания d и c, результат которой сохраняется в переменной d.
Выводится значение переменной d с помощью функции writeln.
Выводится значение переменной c с помощью функции writeln.