Вводятся величины X, Y целого типа. Написать программу для обмена значений величин. Необходимо использовать вспомогательную величину Т. Протестировать программу для X=5 и Y=-11.

program zz1;

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

begin

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

read (x);

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

read (y);

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

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

end.