program pr1;

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

     sum, sum_k, sum_c, i:integer;

Begin

      For i:=1 to 15 do:

             a[i]:=Random(21);

       writeln('Исходный массив: ');

       For i:=1 to 15 do:

              write(a[i], ' ');

       sum:=0;

       For i:=1 to 15 do:

                     sum:=sum+a[i];

       writeln('Сумма всех элементов массива равна:', sum);

       sum_k:=0;

       For i:=1 to 15 do:

                if a[i] mod 3 = 0 then

                        sun_k:=sum_k+a[i];

       writeln('Сумма элементов кратных трем: ', sum_k);

       For i:=1 to 15 do:

                  if i mod 2 = 0 then

                          sum_c:=sum_c+a[i];

        writeln('Сумма элементов на четных позициях массива равна: ', sum_c);

End.