задано n чисел ( n<=10). определить сумму чисел , удовлетворяющих условию : модуль числа меньше его номера

var n, i, k, s: integer;begin  readln(n);  for i:=1 to n do  begin    readln(k);    if abs(k)>i then s:=s+k;  end;  writeln(s);end.