Впаскале, решить pascal решить через массив, я плохо понимаю массивы. даны числа . получить сумму тех чисел данной последовательности, которые a)кратны 5; б)нечетны и отрицательны; в)удовлетворяют условию мод |ai|< i^2 и эти все цифры должны быть в одной программе.

После выода данных в массив:
Sum:=0;
B:=0;
C:=0;
For i:=1 to 50 do
Begin
If a[i] mod 5=0
Then sum:=sum+a[i];
If (a[i] mod 2<>0) and (a[i]<0)
Then b:=b+a[i];
If abs(a[i])Then c:=c+a[i];
End;
Writeln(sum,' ',b,' ',c);

Последнее условие это модуль а[i] меньше квадрата i?