Даны величины a b c d. составьте алгоритм для перемещения значений этих величин по такому принципу: b должно получить значение a; c - значение b; d - значение c.

D=c значение d
c=b
b=a

Program vbn;
var a,b,c,d:integer;
begin
writeln('введите a,b,c,d');
readln(a,b,c,d);
b:=a; c:=b; d:=c;
writeln('a=',a);
writeln('b=',b);
writeln('c=',c);
writeln('d=',d);
end.