Если нужно поменять местами переменные, то я бы написал что-то подобное:
var a,b,c : integer;
begin
readln(a,b,c);
a := a + b + c;
b := a - b;
b := b - c;
c := a - b - c;
a := a - b - c;
writeln(a,' ', b, ' ',c);
end.
a получит значение от с, b получит значение от a, c получит значение от b