Найти серднее арифметическое элементов, входящих в интервал [-5;5]

program z;
var i,s,k,n,m:integer; sa:real;
a,b:array [1..10] of integer;
begin
     writeln('Введите интервал');
     readln(n,m);
     s:=0; k:=0;
     for i:=n to m do
         begin
              s:=s+i;
              k:=k+1;
         end;
     sa:=s/k;
     writeln('Результат - ',sa);
end.

program z;
var i,s:integer; sa:real;
begin
     for i:=-5 to 5 do
         s:=s+i;
     sa:=s/10;
     writeln('Результат - ',sa);
end.

program z;
var i,s:integer; sa:real;
begin
     for i:=-5 to 5 do
         s:=s+i;
     sa:=s/10;
     writeln('Результат - ',sa);
end.

for i:=1 to 10 do begin
a[i]:=random(21)-10 //рандомно заполняем на интервале (-10:10)
end;
 
for i:=1 to 10 do begin
if a[i] in [-5,5] then begin
inc(x); //сумма
inc(y);//кол-во
end;
end;
write(x/y)//отношение суммы элементов на интервале к их кол-ву

uses crt;
var i,x,y: integer;
    a: array [1..10] of integer;
begin
for i:=1 to 10 do begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
 
for i:=1 to 10 do begin
if (a[i]>=-5) and (a[i]<=5) then begin
inc(x, a[i]);
inc(y);
end;
end;
writeln;
writeln('Ответ: ',(x/y):1:3);
end.