Напишите программу на паскале, которая считывает число n, а затем ещё n чисел .
выведите сумму индексов чисел , оканчивающихся на 7 , нумерация с 1.

PascalABC.NET

begin

 var n := ReadInteger;

 var a := ReadArrInteger(n);

 var s := 0;

 for var i := 0 to a.High do

   if Abs(a[i]) mod 10 = 7 then

     s += i + 1;

 s.Println;    

end.