Томата вить программу на паскале используя подпрограммы-процедуры составить программу для формирования массива элементы которого являются цифры заданного числа n

  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

1. windows, linux, android 2. norton commander, volkov commander, far, windows commander 3. drivers for nvidia, amd, radeon, firepro 4.kaspersky, avast, avg 5.winrar, 7-zip, winzip 6.network utilities, lockhunter, dr.web curelt