Упорядочьте массив целых чисел а[10] по убыванию

Program p1;   var r,z,k,i: integer; mas: array [ 1..100 ] of integer; label m1;   begin k: =0;   writeln('vvedite massiv iz 10 chisel cherez probel');   for i: =1 to 10 do begin  read(mas[ i ]);   k: =k+1;   end;   m1:   for i: =1 to k do begin  if mas[ i ] < mas[ i+1 ] then begin z: =mas[ i ]; r: =mas[ i+1 ];   mas[ i ]: =r; mas[ i+1 ]: =z; goto m1;   end; end;   for i: =1 to k do begin write (mas[ i ],' '); end;   end.

Самое главное для корпуса системного блока это его габариты. можно выделить несколько типоразмеров компьютерных корпусов barebone, slim, minitower, miditower, fulltower и bigtower (от tower — башня), и столько же форм-факторов: ат, atx, e-atx, matx, miniitx, xl-atx. все они связаны между собой габаритными размерами. например: корпус big -tower (большая башня) имеет форм-фактор xl-atx с размерами корпуса около 234 х 600 х 555 мм, а маленькая башня mini-tower имеет форм-фактор matx с размерами 181 х 363 х 400 мм (ширина х длина х высота).

А| b | c | a^b | a^bvc  0 | 0 | 0   |   1     |   1  0 | 0 | 1   |   1     |   1 0 | 1 | 0   |   0     |     0 0 | 1 | 1   |   0     |     1 1 | 0 | 0   |   0     |   0 1 | 0 | 1   |   0     |     1 1 | 1 | 0   |   1     |     1 1 | 1 | 1   |   1     |     1