Написать программу используя процедуру которая сортирует элементы целочисленного массива B[1..n],n меньше или равно 25 по убыванию

желательно указывать язык и его версию

Pascal

Java 8

class Sort25{ public static void main(String[] args) throws java.io.IOException{  int c, n = 0, array[];  while((c = System.in.read())==13 || (47<c && c<58 && (n = n*10+c-48)>-1));  if(25<n || c!=10)return;  array = new int[n];  for(c = 0; c<n; c++){   int d = 0; boolean negative = false;   while((d = System.in.read())!=10)    if(47<d && d<58)array[c] = array[c]*10+d-48;    else if(d==45)negative = true;   if(negative)array[c]*=-1;  }  sortArray(array);  for(c = 0; c<n; c++)System.out.print(array[c]+" "); } private static void sortArray(int[] array){  for(int c = 0; c<array.length-1; c++){   int b = c, e;   for(int d = c+1; d<array.length; d++)    if(array[d]>array[b])b=d;   e = array[c];   array[c] = array[b];   array[b] = e;  } } }