const
  low = -15;
  high = 15;
type
  vector = array of integer;
var
  arr:vector;
  n:integer;
function CountInInterval(arr:vector):integer;
  var
    low, high:integer;
    count:integer;    
begin
  low:=-15;
  high:=15;
  count:=0;
  for var i:=0 to length(arr) - 1  do
    if (arr[i] > -15) and (arr[i] < 15) then
      inc(count);
  CountInInterval:=count;   
end;

begin
  n:=ReadInteger('Введите N: ');
  SetLength(arr, n);
  write('Введите ', n, ' числа(-ел): ', #10);
  for var i:=0 to n - 1 do
    arr[i]:=ReadInteger();
  write('Количество чисел, принадлежащих интервалу (-15, 15) среди введённых: ', CountInInterval(arr));
end.