Небольшая задачка по паскалю...

Тебе весь код написать али как? Общего количества чего?

Если дан массив A[1..N], где N - количество его элементов, и нужно посчитать сумму первых K его элементов, то вот код:

var
i, K, N, S: integer;
A: array[1..100] of integer;

begin
...
{Не буду расписывать начало, думаю занести элементы в массив и считать K сможешь}
S := 0;
for i := 1 to N do
S := S + A;
{Вот и все! Теперь в S лежит искомая сумма.}
...
end;