uses crt;
const n=5;
type masiv=array[1..n] of integer;
var ar:masiv;
    i: integer;

    procedure masivs;
    begin randomize;
     for i:=1 to n do ar[i]:=random(35);
     writeln('Skaitli 5 no 35');writeln;
    end;

     procedure bubble(var ar:masiv; a:integer);
     var i,j:integer;
         procedure maina(var a,b:integer);
         var c:integer;
         begin
              c:=a; a:=b; b:=c;
         end;
     begin
     for i:=a-1 downto 1 do
         for j:=1 to i do
             if ar[j]>ar[succ(j)] then maina(ar[j], ar[succ(j)]);
             inc(i);
     end;

begin
     clrscr;
    masivs;
    bubble(ar,n);
    for i:=1 to n do write(ar[i],'   ');
 readkey;
end.