перерапределить значение переменых x и y так, что б ы в x окозалось большее из этих значений ,а в y меншее
var x,y,cur:integer; begin readln(x,y); if(x<y)then begin cur := x;x := y;y := cur;end; writeln(x,' ',y); readln; end.
