Даны величины переменных 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.