Дан массив элементов А[15]. Найти суммы элементов с 1 до 5, с 6 до 10, с 11 до 15 и вычислить произведение этих трех сумм.

Program al;

const n=15;

var a:array[1 ... n ] of integer;

s1, s2, s3, p, i:integer;

begin

writeln ('vvedite massiv=') ;

for i: = 1 to n do

readln (a[i]) ;

s1:=0;

s2:=0;

s3:=0;

p:=1;

for i : = 1 to 5 do

s1:=s1+a[i];

for i: = 6 to 10 do

s2:=s2+a[i];

for i: = 11 to 15 do

begin

s3: = s3+a[i];

p:=s1*s2*s3;

end;

writeln ('s1=', s1,' s2=', s2,' s3=', s3,' p=', p) ;

readln;

end.