Ввести одномерный массив состоящий из 11 элементов. Определить в нем сумму элементов, стоящих на позициях, чей номер больше его заявленной в нем значение сделать.

Const   
     n=5;
Var     
     s,i: integer;   
     a:array[1..n] of integer;
Begin   
     a[1]:=1;   
     a[2]:=2;   
     a[3]:=3;   
     a[4]:=4;   
     a[5]:=5;       
     s:=0;   
     for i:=1 to n do         
          begin                      
               s:=s+a[i];           
               writeln('Сумма элементов = ', s); {если тут, то вывод всех чисел на экран }                   end;           
         {если сюда вставить writeln('Сумма элементов = ', s); то тебе покажут тока ответ} 
End.