Даны переменные A,...

Даны переменные 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.