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