ПРОСТО ПОМОЩЬ!!! решать ничего не надо, код внутри и задача, просто не понял одну вещь!!

С заранее известным количеством членов - это значит, что количество членов надо ввести перед тем, как вводить сами члены и вычислять их сумму. Собственно, ты это и делаешь:
write('vvedite kol-vo 4usel:');
readln(n);
А вот сумму ты считаешь неправильно. Правильно будет так:
Program kj;
uses crt;
{ Сначала задаем динамический массив. То есть с неизвестным количеством членов}
var a: array of Integer;
{ Потом задаем остальные переменные}
var k,sum,n:integer;
{ Дальше вводим количество членов}
write('vvedite kol-vo 4usel:');
readln(n);
{ И устанавливаем размер массива}
SetLength(a, n);
{ А теперь считаем саму сумму}
sum:=0;
for k:=1 to n do
begin
readln(a[k]);
sum:=sum + a[k];
end;
{ И, наконец, выводим результат}
writeln('summa: ',sum);
end.

Всё!

начало думаю сойдет, только у вас сумма не правильно описано, сперва ее надо задать нулю, и прибавлять каждый член (организуется циклом)

Program kj;
uses crt;
var i,sum,a,n:integer;
begin
clrscr;
write('vvedite kol-vo 4usel:');
readln(n);
sum:=0;
for i:=1 to n do
begin
readln(a);
sum:=sum+a; {вот здесь ошибка - надо n раз суммировать введенные числа, которые в переменной а}
end;
writeln('summA:',sum);
end.

шо за бред? Ты считываешь кол-во членов, а потом сумме присваиваешь значение считываемого числа + кол-во членов? sum:=a+n;
:DDDDDDDDD

Программы у тебя нет. Есть какой-то говнокод

это значит что n у тебя константа. =)
вот только "программа" твоя - мусор.

Размер последовательности (массива) указан в условии задачи. Задаешь его, потом вводишь массив. Нежно.

Сумму обнули (только не в цикле ))) потом сум: =сум+а итое)

И массив опиши как массив!! ! )))))