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

Метод:
1. Начало.
2. Ввод количество чисел N. Ввод чисел.
3. Если N gt; 10, выводим извещение об ошибке и программка заканчивается.
4. Если N lt;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 gt; 10) then
begin
writeln(Chislo N ne dolzhno bit gt; 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] lt; 0) then
sum:=sum+a[j];
sred:=sum/n;
end;
writeln(Summa: sum);
writeln(Srednee: sred);
end;
end.