program AverageNegativeElements;

var
n, i, count, sum, num: integer;
average: real;

begin
count := 0;
sum := 0;

write('Enter the number of elements: ');
readln(n);

for i := 1 to n do
begin
write('Enter element ', i, ': ');
readln(num);

if num < 0 then
begin
count := count + 1;
sum := sum + num;
end;

end;

if count > 0 then
begin
average := sum / count;
writeln('Average of negative elements: ', average:0:2);
end
else
writeln('No negative elements in the sequence');
end.