Опишите целочисленный массив из 10 элементовзаполнить массив последовательностью чисел 2 5 11 23 47вывести массив на экран. var A : array [1. . 10] of integer;i : integer;beginA[1]:=2;for i:=1 to 10 dobeginA[i]:=A[i-1]+3*i;write (A[i], ' ')end;end. Подскажите почему программа не работает?