Вводятся величины X,Y целого типа. Написать программку для размена значений величин.

program zz1;

var  x, y, t:integer; // задаем переменные целого типа

begin

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

read(x);  

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

read(y);

t:=x; x:=y; y:=t; // производим обмен

write( x = , x, y = , y); // выводим ответ

end.