Даны величины переменных a,b,c,d. требуется перенести значения переменных, следующим образом: в d сумму значений переменных с и в, в переменную а поместить значение из в, в в значение из с, в с значение из d решение в паскале

Var a, b, c, d: Integer;
    t_a, t_b, t_c, t_d: Integer; {данные переменные будут использоваться для хранения изначальных значений a, b, c, d}
begin
  ReadLn(a, b, c, d);
  t_a := a;
  t_b := b;
  t_c := c;
  t_d := d;
  d := t_c+t_b;
  a := t_b;
  b := t_c;
  c := t_d;
end.