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