с клавиатуры вводится 10 произвольных чисел . подсчитать сумму чисел значение которых в диапазоне от -10 до 10 включительно»

var

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

 s, i: integer;

begin

 s := 0;

 for i := 1 to 10 do

   read(a[i]);

 for i := 1 to 10 do

   if (a[i] >= -10) and (a[i] <= 10) then s := s + a[i];

 writeln(s);

end.

---------------------------------------------

Файл с решением прикреплён (1).

Также прикреплён файл с решением без использования массивов (2).