Напишите программку, которая в последовательности естественных чисел обретает среднее

var n,i,s,k:integer;

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

begin

write ('Введите количество чисел в последовательности: ');

readln(n);

for i:=1 to n do

begin

write ('Введите число: ');

readln (a[i]);

if (a[i] mod 8 = 0) and (a[i]gt;=121) and (a[i]lt;=400) then

begin

s:=s+a[i];

k:=k+1

end

end;

if k=0 then write ('NO')

else writeln ('Cреднее арифметическое чисел кратных 8 из промежутка [121, 400]  одинаково: ',s/k:0:3)

end.