procedure order (var number1,number2, number3: int)
var biggest: int:=max(number1,max(number2,number3))
var small: int:=min (number1,min (number2,number3))
var medium: int:=(number1+number2+number3)-biggest-small
number1=small
number2=medium
number3=biggest
end order