Program p1;
var r,z,k,i:integer;mas:array [ 1..100 ] of integer;label m1;
begin k:=0;
writeln('vvedite massiv iz 10 chisel cherez probel');
for i:=1 to 10 do begin
read(mas[ i ]);
k:=k+1;
end;
m1:
for i:=1 to k do begin
if mas[ i ] < mas[ i+1 ] then begin z:=mas[ i ]; r:=mas[ i+1 ];
mas[ i ]:=r; mas[ i+1 ]:=z; goto m1;
end;end;
for i:=1 to k do begin write (mas[ i ],' ');end;
end.