const n=100;
var
  a:array[1..n] of integer;
  i,j,buf:integer;
begin
  writeln('Do sortirovki:');
  for i:=1 to n do
    begin
      a[i]:=random(10)+20;
      write(a[i],' ');
    end;
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if a[i]>a[j] then
        begin
          buf:=a[i];
          a[i]:=a[j];
          a[j]:=buf;
        end;
  writeln;
  writeln;
  writeln('Posle sortirovki:');
  for i:=1 to n do
    write(a[i],' ');
end.