Вводятся 4 числа. Нужно вывести их в порядке возрастания. При любых входных данных алгоритм должен выполнять не более пяти операций сравнения. Решения с большим количеством сравнений не оцениваются. Оператор вывода во всём тексте алгоритма должен быть единственный.

Var m : array[1..4] of Integer;
i,j,t : Byte;
Begin
  Readln(m[1],m[2],m[3],m[4]);
  For i:=1 to 3 do
   For j:=i+1 to 4 do
     If m[j]     Begin
       t:=m[i];
       m[i]:=m[j];
       m[j]:=t;
     end;
  Writeln(m[1], ,m[2], ,m[3], ,m[4]);
end.