Помогите решить 4 задачи на массив на пакале - вопрос №421832

program p1;

const M=10; 

var b:array[1..M] of integer;

 p:longint; i:integer;

begin

writeln('vvedite elementi massiva');

for i:=1 to M do

readln(b[i]);

p:=1;

for i:=1 to M do

if b[i]>5 then p:=p*b[i];

writeln('p=',p);

readln

end. 

-----------

program p2;

const n=10; 

var a:array[1..n] of integer;

 s:integer; i:integer;

begin

writeln('vvedite elementi massiva');

for i:=1 to n do

readln(a[i]);

s:=0;

for i:=1 to n do

if a[i]>=0 then s:=s+a[i];

writeln('s=',s);

readln

end. 

------------------

program p3;

const k=10; 

var m:array[1..k] of integer;

 s:integer; i:integer;

begin

writeln('vvedite elementi massiva');

for i:=1 to k do

readln(m[i]);

s:=0;

for i:=1 to k do

if m[i]>0 then k:=k+1;

writeln('k=',k);

readln

end. 

----------

program p4;

const k=10; 

var a:array[1..k] of integer;

 s:integer; i,n:integer;

begin

writeln('vvedite elementi massiva');

for i:=1 to k do

readln (a[i]);

writeln('vvedite n');

readln(n); 

s:=0;

for i:=1 to k do

if a[i]<n then k:=k+1;

writeln('k=',k);

readln

end. 

Буду благодарна, если отметите