Ввести два числа a и b. С помощью оператора присваивания обменять их значения с использованием промежуточной переменной (x:=a; a:=b; b:=x); в паскале

program zz1;

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

begin

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

read (a);

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

read (b);

x:=a; a:=b; b:=x; / / С помощью оператора присваивания обмениваем их значения с использованием промежуточной переменной

write (' а = ', a, ' b = ', b) / / выводим ответ

end.