Pascal.Циклы. Задача

[NitriNKa]

Помогите пожалуйста, срочно!!!! Решите задачку, Произвести следующую обработку 15 вещественных чисел: найти среднее арифметическое отрицательных чисел и подсчитать количество чисел, входящих в диапазон [0..5].

[Sazary]

И в чем проблема?

diap := 0;
otr := 0;
S := 0;
for i:=1 to N 15 do
 begin
 if mas[i]<0 then
  begin
  inc(otr);
  S := S+mas[i];
  end;
 if (mas[i]>=0) and (mas[i]<=5) then inc(diap);
 end;
S := S/otr;

[DM_bite]

NitriNKa, поиском пользуйся, решал я эту задачу уже.