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

Не совсем конечно рационально, но зато работает.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.