Помогите пожалуйста составить программы
1. Вводтся с клавиатуры 8 чисел. Подсчитать общую сумму, произведение положительных чисел и кол-во отрицательных
2. Высчитать S=5+5,5+6+...+n
n-с клавиатуры (натуральное)
3. Дано n-натуральное. Вычислить y=2*4*6*...*2n

Спасибо большое

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 a>0    then n:=n*a    else k:=k+1;  end; writeln('Summa:',s,' Proizvedenie: ',n,' Kolichestvo: ',k); readln; readlnend.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); readlnend.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); readlnend.