6. Составить алгоритм и написать программу вычисления суммы и среднего значения только отрицательных чисел из вводимых

Алгоритм:1. Начало. 2. Ввод количество чисел N. Ввод чисел.3. Если N > 10, выводим сообщение об ошибке и программа завершается.4. Если N <10, то начинаем проверять циклически, являются ли числа отрицательными.5. Если число отрицательное, то суммируем число.6. После вычисления суммы, вычисляем среднее арифметическое.7.Повторяем до тех пор пока не закончатся числа.8. Выводим сумму и среднее арифметическое.9. Конец.Код программы (PascalABC.NET):uses crt;var n,i,j: integer; a: array [1..10] of real; sum,sred: real;begin writeln(\'Vvedite N\'); readln(n); if(n > 10) then begin writeln(\'Chislo N ne dolzhno bit > 10\'); end else begin for i:=1 to n do begin writeln(\'Vvedite cislo \',i); readln(a[i]); end; for j:=1 to n do begin if(a[j] < 0) then sum:=sum+a[j]; sred:=sum/n; end; writeln(\'Summa: \'sum); writeln(\'Srednee: \'sred); end;end.