Помогите написать программу.
Дана последовательность из n отрицательных чисел, заканчивающихся положительным числом. Найдите средне арифметическое всех чисел (без учета положительного числа)

var

 n,count,sum:integer;

begin

 count:=0; sum:=0;

 readln(n);

 if n<0 then

   begin

     while n<0 do

       begin

         sum:=sum+n;

         inc(count);

         readln(n);

       end;

     writeln(sum/count);

   end

     else

       writeln('0');

end.

Если моё решение вам помогло, отметьте его как лучшее. Спасибо! Удачи!