Дана последовательность из n вещественных чисел. Вычислить сумму тех элементов последовательности, номера которых на единицу больше чем значения элемента последовательности — Pascal(Паскаль)

uses crt;
var n,i,a,s:integer;
begin
clrscr;
write('n=');
readln(n);
s:=0;
writeln('Введите ',n,' чисел');
for i:=1 to n do
 begin
  write('a',i,'=');
  readln(a);
  if i-a=1 then s:=s+a;
 end;
write('Сумма=',s);
readln
end.