Решить задачи в Бейсик

1. Найти сумму элементов массива a(10) кратных 4

2. Найти произведение тех элементов массива B(15),которые положительные и оканчивается на 4

3. Заполните элементы массива A(5) по правилу: a(i) =i-4a, где a- действительное число, которое вводится с клавиатуры.

15 учеников14 любят ходить в кинотеатр. триллер- 6 учеников,  фэнтези- 5 учеников,комедию- 10
1 ученик смотрит только триллеры,2 ученика смотрят только фэнтези, 5 учеников смотрят только комедии
3 ученика смотрят и триллеры  и комедии1 ученик –и фэнтези, и комедиириллеры и фэнтези не смотрит ни один ученик

1 только триллеры 2 только фэнтези5 только комедии
15 - 1 - 8 = 6
6 человек 

5 триллер3 фэнтези5 комедии
1 ученик –и фэнтези, и комедии  т.е.осталось 
5 триллер2 фэнтези4 комедии
3 ученика смотрят и триллеры  и комедиит.е. осталось
2 триллер2 фэнтези 1 комедии
т.е. получается
1 смотрит все1 смотрит триллер1 смотрит фэнтези+1+3и + те 8 учеников которые смотрят1 только триллеры 2 только фэнтези5 только комедии

// PascalABC.NET 3.2, сборка 1346 от 25.11.2016
// Внимание! Если программа не работает, обновите её версию!

begin
  var n:=30;
  var a:=ArrRandom(n,-15,15); a.Println;
  var mx:=a[0]+a[n-1];
  for var i:=2 to (n-1) div 2 do begin
    var s:=a[i]+a[n-i-1];
    if s>mx then mx:=s
    end;
  Writeln('Максимальная из сумм сходящихся пар: ',mx);
  // сортировка выбором
  var j:=n-1;
  while j>0 do begin
    mx:=a[0];
    var imx:=0;
    for var i:=1 to j do
      if a[i]>mx then begin mx:=a[i]; imx:=i end;
      a[imx]:=a[j];
      a[j]:=mx;
      j-=1
    end;
  a.Println
end.

Пример
-14 9 1 -14 -5 14 -15 -15 -1 -4 -8 -9 1 -12 -11 -3 9 -1 -9 -9 -1 -8 15 -8 5 -13 15 6 9 11
Максимальная из сумм сходящихся пар: 19
-15 -15 -14 -14 -13 -12 -11 -9 -9 -9 -8 -8 -8 -5 -4 -3 -1 -1 -1 1 1 5 6 9 9 9 11 14 15 15