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

program zz1;

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

begin

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

read (a);

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

read (b);

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

read (c);

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

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

end.