В одномерном массиве В состоящем из N целых элементов, вычислить: a) количество элементов, равных по значению первому элементу; b) произведение элементов из промежутка [-8;3] — Pascal(Паскаль)

Program zadach1;
Const n=5;
Var B:array[1..N] of integer;
    i,k:integer;
Begin
Writeln('Vvedite el.masiva:');
For i:=1 to n do
Readln(b[i]);
k:=0;
For i:=2 to n do
If b[i]=b[1] then k:=k+1;
Writeln('Kol. el.=b[1]=',k);
readln
End.

Program zadach_1_2;
uses crt;
Const n=10;
Var B:array[1..n] of integer;
    i,k,p:integer;
Begin
clrscr;
writeln('Vvedite ',n,' elementov massiva:');
for i:=1 to n do
readln(b[i]);
clrscr;
Writeln('Ishodnyj massiv:');
for i:=1 to n do
write(b[i],' ');
writeln;
k:=0;
for i:=2 to n do
if b[i]=b[1] then k:=k+1;
writeln('Kol. ravn. perv.=',k);
P:=1;
For i:=1 to n do
If (b[i]>=-8)and(b[i]<=3) then P:=P*B[i];
Writeln('Proizvedenie v int.[-8,3]=',p);
Readln;
End.