Отсортировать данные по убыванию методом пузырька.

Const  n = 10; var  a: array[1..n] of integer; i, j, k: integer; begin write ('исходный массив: '); for i : = 1 to n do begin a[i] : = random(100); write (a[i]: 4); end; writeln; writeln; for i : = 1 to n-1 do for j : = 1 to n-i do if a[j] > a[j+1] then begink : = a[j]; a[j] : = a[j+1]; a[j+1] : = k; end; write ('отсортированный массив: '); for i : = 1 to n do  write (a[i]: 4); writeln; readln; end.

Program f777; varx: array[1..102] of integer; mult,max,i,num: integer; begin  for i: =1 to 6 do    readln(x[i]);       max: =x[1];       for i: =1 to 6 do    if max < x[i] then  begin    max: =x[i];     num: =i;   end;       num: =num+1;   mult: =1;       for i: =num to 6+num do  begin  if i = 6- num then    x[mult]: =0  else    x[mult]: =x[i];   mult: =mult+1;   end;     x.print(' ');     end.

Program f777; var x,y: array[1..102] of integer; mult,i,j: integer; begin  for i: =1 to 6 do    readln(x[i]);   j: =1; i: =1;   mult: =1;   while i< =6 do   begin      mult: =mult*x[i];   if i mod 3 = 0 then          begin       y[j]: =mult;       mult: =1;       j+=1;     end;     i+=1;     end; for i: =1 to 6 do   writeln(y[i]); end.