const
  m = 7; {êîëëè÷åòâî ýëåìåíòîâ â ìàññèâå}

var
  msort: array[1..m] of integer; {ñîáñòâåííî íàø ìàññèâ}
  i, j, k: integer; {i - ýòî øàã ,j - ýòî ïîä-øàã}

begin
  writeln('Ââåäèòå ýëåìåíòû ìàññèâà');
  for i := 1 to m do
    read(msort[i]); 
  
  
  
  for i := 1 to m - 1 do
    for j := 1 to m - i do
      if msort[j] > msort[j + 1] then begin
        k := msort[j];
        msort[j] := msort[j + 1];
        msort[j + 1] := k;
      end;
  
  write('Îòñîðòèðîâàííûé ìàññèâ: ');
  for i := 1 to m do
    write(msort[i]:4);
  
  writeln;
  
end.