Что можно добавить в список программных продуктов dos windows linux по их функциональному назначению

Блокнот paint стандартные проги

Const   n = 20; var   a,b: array[1..n] of integer;   i, j, i2: integer; begin   randomize;   writeln('элементы массива');   j: =0;   for i : = 1 to n do   begin       a[i] : = random(51)-25;       write(a[i]: 4);       if a[i]< 0 then begin inc(j); b[j]: =a[i] end;   end;   writeln;   for i : = 1 to n do       if a[i]> =0 then begin inc(j); b[j]: =a[i] end;   writeln('результат');   for i : = 1 to n do write(b[i]: 4);   writeln end. тестовое решение: элементы массива     3  14  10    1  -3  -2 -11 -12  13    1  17  13    8  24  -3 -23 -17  -8 -10 -22 результат   -3  -2 -11 -12  -3 -23 -17  -8 -10 -22    3  14  10    1  13    1  17  13    8  24

  type    mas = array [1..10] of integer;   var    m : mas;     a,l : integer;     function re () : integer;           //считываем число var    a : integer;   begin    writeln ('введите число');     readln (a);     result : =a;   end;       function  c(var m : mas; a : integer) : integer;   //разбиваем на числа var      i : integer;     begin    i : = 0;     while a > 0 do      begin      i : = i +1;       m[i] : = a mod 10;       a : = a div 10;                       end;     result : = i;     end;       procedure wr (a : mas; l : integer);     // вывод массива var      i : integer;     begin    writeln ('resultat : ');       for i : = 1 to l do      write (a[i],' ');     end;       procedure sort (var a : mas; l : integer);     // перевернуть массив  //  т.е  1234 -> 4321     var      i,buf : integer;     begin    for i : = 1 to l div 2 do      begin      buf : = a[l-i+1];       a[l-i+1] : = a[i];       a[i] : = buf;       end;     end;     begin  a : = re();   l : = c(m,a);   sort (m,l);   wr (m,l);   end.на примере числа  125после выполнения функции cm[1] = 5 m[2] =2 m[3] =1после выполнения процедуры sortm[1] =1 m[2] =2 m[3] =5вывод на экран элементов массива через пробел1 2 5