Составьте программу для решения одной из следующих задач, которая запрашивает значение элементов одномерного числового массива А и подсчета суммы элементов массива, меньших своего номера.

//Pascal ABC.NET v3.1 сборка 1219Const n=5;Var a:array[1..n] of integer; i,s:integer;begin for i:=1 to n do  begin   readln(a[i]);   if a[i]<i then s:=s+a[i];  end; writeln(s);end.Пример ввода:22112Пример вывода:4