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

Var a,b,c,t:integer
begin
write('a, b, c:');
readln(a,b,c);
t:=a;
a:=b;
b:=c;
c:=t;
writeln('a = ',a,' b = ',b,' c = ',c);
end.

Пример:
a, b, c:
1 2 3
a = 2 b = 3 c = 1