Найти количество элементов массива, абсолютное значение которых не превышает 2- Pascal(Паскаль)|C++(Си++)

Program massiv;
const n=13;
var
    x,i,result:integer;
    k:array[1..n] of integer;
begin
    result:=k[1];
    for i:=1 to n do  if abs(k[i])<2
    then begin result:=k[i];
    x:=i;
    end;
writeln('результат', x);
readln;
end.

#include<iostream>
#include<conio.h>
#include<cmath>
 
int main(){
   const int N=13;
   double res=0;
   for(int k=1; k<=N; ++k)
      res+=(std::pow(-1., k))*std::log(double(k*k+k)/15);
   std::cout << res;
   getch();
}