{Masivs ar 12 veseliem trisciparu skaitljiem,
kurus ievada no klaviaturas. Sakartot skaitljus
pec pirma cipara skaitli dilstosha secibaa.}
uses crt;
const n=10;
type masiv=array[1..n] of integer;
var i,j:integer;
    mas,x:masiv;
  procedure bubble(var mas:masiv; n:integer);
  var i,j,T:integer;
  begin
     for i:=1 to n do
         for j:=n downto i+1 do
             if mas[pred(j)]>mas[j] then
             begin T:=mas[pred(j)];mas[pred(j)]:=mas[j];mas[j]:=T;
             end;
  end;

begin
     clrscr;
     writeln('Aizpildi masivu ar veselie triscipari skaitliem!!!');
     for i:=1 to n do readln(mas[i]);
     clrscr;
     for i:=1 to n do begin x[i]:=mas[i] div 100;
         bubble(x,n);end;
     writeln('Masivs');
     for i:=1 to n do write(mas[i],' ');
readkey;
end.