Массивы Опции

[Beseech]

В одномерном массиве A из 15 элементов вычислить суммы и количество положительных, отрицательных и нулевых элементов. Исходный массив и результаты расчетов вывести на экран

[Адель]

const n=14;
var
  a:Array [0..n] of integer;
  i,s1,s2,s3,count1,count2,count3:Integer;
begin
  for i:=0 to n do
    readln(a[i]);
    s1:=0; s2:=0; s3:=0;
    count1:=0;count2:=0;count3:=0;
  for i:=0 to n do
  begin
  if a[i]>0 then begin
    s1:=s1+a[i];
    inc(count1);
  end;
  if a[i]<0 then begin
    s2:=s2+a[i];
    inc(count2);
  end;
  if a[i]=0 then begin
    s3:=s3+a[i];
    inc(count3);
  end;
  end;
  writeln('>0:  ',s1,' * ',count1);
  writeln('<0:  ',s2,' * ',count2);
  writeln('=0:  ',s3,' * ',count3);
  readln;
end.