111111111222222222

Program Shella;
Const n=10;
var mas:array[1..n]of integer;
i,j,r,mn:integer;
Begin
randomize;
for i:=1 to n do
begin
mas[i]:=random(100);
write(mas[i]:3);
end;
for i:=1 to n do
begin
for j:=1 to n do
if mas[j]>mas[j+5] then
begin
r:=mas[j];
mas[j]:=mas[j+1];
mas[j+1]:=r;

end;

end;
for i:=1 to n do
write(mas[i]:3);
End.