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

Не совсем конечно рационально, но зато работает.var a,b,c,a1,b1,c1: integer;  beginwriteln('Введите переменную 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.