Напишите пожалуйста программу на Pascal ABC Net, суть которой заключается в том, что человек должен написать ввести N чисел, после чего программа должна посчитать среднее арифметическое, которое округлено до целых чисел (round) и это среднее арифметическое должно быть умножено на самое маленькое число, введенное человеком и из всего этого вычитаем самое большое число, введённое человеком.
Формула: [tex] \frac{t}{d} *min-max[/tex], где t - это сумма введённых чисел, человеком, d-это количество чисел, введённых человеком, min-самое маленькое число, которое было введено человеком и max-это самое максимальное число, которое было введено человеком!! ЕСЛИ В РЕЗУЛЬТАТ ПО ЭТОЙ ФОРМУЛЕ ПОЛУЧАЕТСЯ ОТРИЦАТЕЛЬНЫЙ, ТО МЫ УМНОЖАЕМ ЕГО НА -1

var    max,     //максимальный элемент   min,      //минимальный элемент   sum,     //сумма всех чисел   n,          //количество чисел   j: integer;Begin   write('Введите количество чисел: ');   readln(n);   write('Введите числа: ');   readln(j);   max:=j; min:=j; sum:=j; //1-й элемент это мин, макс, и сумма одновременно   for var i:=2 to n do begin        readln(j);        if(j > max) then max:=j       else if(j < min) then min:=j;        sum:= sum+j;   end;   sum:= round(sum/n)*min-max;  //результирующая формула   if sum < 0 then writeln('Результат: ', -sum)//умножаем на -1 если результат<0   else writeln('Результат: ', sum);End.