Напишите линейную программу, в результате выполнения которой целочисленные переменные х и у обменяются значениями. При этом нельзя

var
х, у: real; begin
writeln ('Bвeдитe х, Введите у');
reateln(x, у);
writeln('Ваш х=', ' Ваш у=', у);
х: = х+у;
у: = х-у;
х: х-у;
writeln ('Измененный х=', х,', Измененный у=', у);
end.

Недостаток такой программы в том, что может произойти переполнение целочисленного типа. Такой алгоритм можно применять для вещественных чисел, но может возникнуть небольшая потеря точности.