program masiv;
const N=10;
var mas:array [1..10] of integer;
i,j,r,o:integer;
begin
for o:=1 to N do
mas[o]:=Random(30)+30;
for i:=1 to N-1 do
for j:=1 to N-i do
if (mas[j]>mas[j+1]) then
begin
r:=mas[j+1];
mas[j+1]:=mas[j];
mas[j]:=r;
end;
Writeln(mas)
end.