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

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

Для этого нам понадобится ввести дополнительную переменную z, для хранения значения одной из переменных.

program 1;

var x, y, z: integer;

begin

writeln ('Введите значения переменных x и y');

readln (x, y);

if x > y then

begin

z: = x;

x: = y;

y: = z;

writeln ('x = ', x);

writeln ('y = ', y);

end;

end.

Проверим работу данной программы двумя способами:

1) Пусть x = 5; y = 4.

Тогда программа сравнив значения x и y (5 > 4), приступит к следующему шагу:

z = 5, x = 4, y = 5.

И выведет на экран: x = 4, y = 5.

2) Пусть x = 3; y = 4.

Тогда программа сравнив значения x и y (3 < 4), остановит свое дальнейшее вычисление.