сортировка массива методом "пузырька". переменные: mas, k, n, i, j (все типа integer) этапы решения: 1)ввод размера (n) 2)ввод массива (с random) 3)вывод первоначального массива на экран 4)сортировка 5)вывод нового массива

Var a:array[1..100] of integer;
n,i,k,c:integer; 
begin
Randomize;
write('n = '); readln(n);
Writeln('Исходный массив:');
for i:=1 to n do begin
 a[i]:=random(100);
 write(a[i]:6);
 end;
writeln;
 for k := 1 to n-1 do
    for i := n-1 downto k do
      if a[i] > a[i+1] then
        begin
         c:=a[i];
         a[i]:=a[i+1];
         a[i+1]:=c
        end;
Writeln('Отсортированный массив:');
for i:=1 to n do write(a[i]:6);
writeln;
end.

Пример:
n = 15
Исходный массив:
    10     0    59    85    98    71    72    55    29    50    54    27    34    56    73
Отсортированный массив:
     0    10    27    29    34    50    54    55    56    59    71    72    73    85    98

Uses crt;
var a,b,c,x,max,min,sum,pr: integer;
begin
     write('Введите число:  ');
     readln(x);
     a:= x div 100;
     b:= x div 10 mod 10;
     c:= x mod 10;
     sum:=a+b+c;
     pr:=a*b*c;
     if a>b then begin
        min:=b;
        max:=a;
     end
     else begin
          max:=b;
          min:=a;
     end;
     if min>c then min:=c;
     if max<c then max:=c;
     writeln('Сумма цифр числа: ',sum);
     writeln('Произведение цифр числа: ',pr);
     writeln('Максимальная цифра: ',max);
     writeln('Минимальная цифра: ',min);
end.

 в лесу, в саванне или даже в вашем саду — живые существа непрестанно «разговаривают» друг с другом. В книге «Язык животных» говорится: «Живые организмы задействуют все органы чувств, а также всевозможные позы и движения, посылая и получая сигналы — кто-то едва уловимые, а кто-то и весьма явные, как, например, скунс в момент испуга. Они издают запахи, пищат, гогочут, поют и чирикают; обмениваются электрическими и световыми сигналами, меняют окраску, „танцуют“ или даже топчут и трясут находящуюся под ними поверхность» («The Language of Animals»). Что же они хотят этим сказать?