Помогите пожалуйста составить программы1. Вводтся с клавиатуры 8 чисел. Подсчитать общую

Я не смогу ответ добавить, удали ответ ниже

А как удалить?

Снизу ответа вроде

Не выходит

S=5+5+5+6+5+7+...+5+n или S=5+6+7+8+...+n?

S=5+5.5+6+...+n

Что значик точка?

5 с половиной?

Да

Бож я тупой

1)
program p1;
var a,k,n,i,s:longint;
begin
 k:=0;
 n:=1;
 s:=0;
 for i:=1 to 8 do
  begin
   read(a);
   s:=s+a;
   if agt;0
    then n:=n*a
    else k:=k+1;
  end;
 writeln('Summa:',s,' Proizvedenie: ',n,' Kolichestvo: ',k);
 readln;
 readln
end.
2)
program p2;
var n,i:longint;
s:real;
begin
 write('Write n: ');readln(n);
 s:=5;
 for i:=6 to n do
  s:=s+i-0.5+i;
 writeln(s:0:1);
 readln
end.
3)
program p3;var n,i,s:longint;
begin
 write('Write n: ');readln(n);
 s:=2;
 for i:=2 to n do
  s:=s*i*2;
 writeln(s);
 readln
end.