Дан массив целых чисел {Ai} где i=1,2,3,…,M,
причем M=15.
Программа вычисляет произведение сумм некоторых элементов этого массива.
Работу программы описывает выражение (в программе введены следующие константы: G=1; W=12; T=8; L=15;) …

ПРОГРАММА 15;
        функция SUMMA(I1,I2);
        начать функцию
                S:=0;
                НЦ ДЛЯ I:=I1 ДО I2
                        S:=S + A[I]
                КЦ;
                SUMMA:=S
        конец функции;
НАЧАТЬ ПРОГРАММУ
        ВЫВОД  ('ВВЕДИТЕ ЗНАЧЕНИЯ МАССИВА A:' );
        НЦ ДЛЯ J:=1 ДО M
                ВВОД  (A[J]);
        КЦ;
        P:=SUMMA (G, W)*SUMMA(T, L);
        ВЫВОД  ('ПРОИЗВЕДЕНИЕ РАВНО:', P:6)
КОНЕЦ ПРОГРАММЫ.