Даны переменные A, B, C. изменить их значения переместив содержимое A-в B, B- в C, C-в A, и вывести новые значения переменных A, B, C. ABC паскаль. решите пжл

Не совсем конечно рационально, но зато работает. var a,b,c,a1,b1,c1: integer;   begin writeln('Введите переменную A:'); read(a); writeln('Введите переменную B:'); read(b); writeln('Введите переменную C:'); read(c); a1:=a; b1:=b; c1:=c; b:=a1; c:=b1; a:=c1; writeln(a,' ',b,' ',c); end.