PASCAL
var a,b,c,g:integer;
begin
a:=1; b:=2; c:=3;
writeln('исходные значения ',' a=',a,' b=',b,' c=',c);
g:=a;
a:=b;
b:=c;
c:=g;
writeln('выходные значения ',' a=',a,' b=',b,' c=',c);
end.
Пример работы:
исходные значения a=1 b=2 c=3
выходные значения a=2 b=3 c=1