Ввести два числа a и b. С поддержкою оператора присваивания поменять

program zz1;

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

begin

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

read(a);

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

read(b);

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

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

end.