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.