Найдите среднее арифметическое отрицательных чисел из n введенных. (в паскале)

Введем следующие обозначения: n - количество вводимых чисел; а - массив из n чисел; i - порядковый номер элементов массива; a[i] - значения элементов массива, которые будем вводить с клавиатуры во время выполнения программы; s - сумма отрицательных чисел массива, sr - среднее арифметическое отрицательных чисел, k - количество отрицательных чисел. Будем использовать оператор цикла с предусловием while. Тогда программа на языке программирования Pascal ABC может выглядеть так:

program zadacha;

uses crt;

const n=5; var i, s, k: integer;

sr: real;

a: array[1 ... n] of integer;

begin

s:=0;

i:=1;

k:=0;

while i<=n do begin

writeln ('vvedite a[i]:');

readln (a[i]);

if a[i]<0 then begin writeln ('a[i] = ', a[i]); s:=s+a[i]; k:=k+1; end;

i:=i+1;

end;

writeln ('k = ', k);

sr:=s/k;

writeln ('sr = ', sr);

end.

Количество вводимых чисел n можно изменять в программе.