const n=10;
var a:array[1..n] of integer;
i,j,x:integer;
begin
for i:=1 to n do begin a[i]:=random(41)-20; write(a[i]:4);end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
 writeln;
for i:=1 to n do write(a[i]:4);
end.