задана последовательность из n целых чисел. определить среднее арифметическое отрицательных элементов последовательности.
Написать программу в Pascal.

vara: array[1..100] of integer;i,n,c,h: integer;  begin    writeln('Введите кол-во элементов последовательности:');    readln(n);    writeln('Введите последовательность:');    for i:=1 to n do      begin       read(a[i]);         if  a[i]<0 then          begin           c:=c+a[i];           h:=h+1;          end;      end;    writeln(c/h);  end.