данны переменные a b c Изменить их значение переместив содержимое a-b b-c c-a и вывести новые значения a=1 b=2 c=3

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