Помогите пожалуйста! По информатике! Напишите программу,которая производит обмен значений...

Question

Помогите пожалуйста!
По информатике!
Напишите программу,которая производит обмен значений переменных х,у,если х больше у.
Пример входных данных Пример выходных данных
x>>5 x=5
y>>6 y=6
x>>6 x=5
y>>5 y=6

Answer 1

Var x,y,z:integer;
begin
writeln('Введите x и y');
read(x,y);i
f x>y then begin
z:=x;
x:=y;
y:=z;
end;
writeln(x,y:3);
end.