Обменять значения двух переменных, используя третью (буферную) переменную
var x, y, b: integer; begin
write (‘введите первое число: ');
readln (x);
write (' введите второе число: ');
readln (y);
writeln ('x = ', x, ', y = ', y);
writeln ('Changing values... changing values...');
b := x;
x := y;
y := b;
writeln ('x = ', x, ', y = ', y);
end. Пример 1: переведите на язык программирования.