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.