Задана последовательность из N целых чисел. Вычислить сумму тех элементов массива, порядковые номера которых совпадают (программа Паскаль)

Question

Задана последовательность из N целых чисел. Вычислить сумму тех элементов массива, порядковые номера которых совпадают со значением этого элемента.

Answer 1

var n,i,a,s:integer;
begin
write('n=');
readln(n);
writeln('Vvedite ',n,' chisel');
s:=0;
for i:=1 to n do
 begin
  readln(a);
  if a=i then s:=s+a;
 end;
write('S=',s);
readln
end.