составить подпрограмму,которая вычисляет сумму и кол-во элементов массива U(N),принадлежащие интервалу [A;B].С помощью подпрограммы вычислить сумму и кол-во элементов массивов E(15),D(6),C(14),принадлежащих интервалу [Х;Y].Для передачи имени массивов в подпрограмму использовать понятие открытого массива.Значения Х и Y ввести с экрана дисплея.Элементы массивов E,D,C вычислить по формулам:
E i=1,5i +3i-4;
D j=0,4je;
C k=cos(2,4k)e. 
я тут кое что побывала написать,но как писать всю программу и как все  это соединить не знаю. 

for i:=1 to 15 do
  E[i]:=4.5*i-4 

kol:=0;
summ:=0;

for i:=1 to 15 do
  if (E[i]>A) and (E[i]<B) then
   begin
    summ:=summ+E[i];
    kol:=kol+1;
   end; 
помогите написать целую программу.