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