Для решения этой задачи в Паскале нужно пройти по всей последовательности, вычислить среднее арифметическое только отрицательных чисел и вывести результат. Ниже приведен пример кода для решения данной задачи:

program AverageNegativeNumbers;
var
numbers: array[1..10] of integer; // предположим, что последовательность состоит из 10 чисел
sum, count, i: integer;
average: real;
begin
sum := 0;
count := 0;
// заполнение массива числами
for i := 1 to 10 do
begin
write('Введите число ', i, ': ');
readln(numbers[i]);
// проверка на отрицательное число
if numbers[i] < 0 then
begin
sum := sum + numbers[i];
count := count + 1;
end;
end;
if count > 0 then
begin
average := sum / count;
writeln('Среднее арифметическое отрицательных чисел: ', average:0:2);
end
else
writeln('В последовательности нет отрицательных чисел.');
end.

Вы можете изменить размер массива и вводимых чисел в соответствии с вашей задачей.