Var i,n,j,m:integer; mass:array[1..100] of integer; begin read(n); for i:=1 to n do read(mass[i]); for i:=n-1 downto 1 do for j:=1 to i do if mass[j]>mass[j+1] then begin m:= mass[j]; mass[j]:= mass[j+1]; mass[j+1]:= m; end; for i:=1 to n dowrite(mass[i]:5); end.
mass:array[1..100] of integer;
begin
read(n);
for i:=1 to n do
read(mass[i]);
for i:=n-1 downto 1 do
for j:=1 to i do
if mass[j]>mass[j+1] then
begin
m:= mass[j];
mass[j]:= mass[j+1];
mass[j+1]:= m;
end;
for i:=1 to n dowrite(mass[i]:5);
end.