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

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.