дан целочисленный массив C,длиною 15 частей значениями спектра [15;45].Отыскать сумму

Обозначу елемент "кратных по значению"  - E. Напишу програмку на Паскале:

    program sumOtrizatelnix;

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

         i,n,s,E:longint;

begin

  readln(E);

  for i:=1 to 15 do

     read(A[i]); //ввели с клавиатуры масив

  for i:=1 to 15 do

     if (A[i] mod E=0) or (A[i] lt; 0) then s:=s+A[i]; // прибавляем елемент если нам подходит

  writeln(s); // выводим сумму

end.