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

program zz1;

var a, b, c, d:integer; //задаем переменные целого типа

begin

write( введите 1-ое число );  // вводим с клавиатуры 1-ое число

read(a);  

write( введите 2-ое число );  // вводим с клавиатуры второе число

read(b);

write( введите третье число );  // вводим с клавиатуры третье число

read(c);

d:= a; a:= c; c:= b; b:= d; // производим размен с внедрением дополнительной переменной для того, чтоб не утратить значение первой переменной

writeln( a = , a, b = , b, c = , c);  // выводим ответ

end.