Массивы

[Babur4iK]

1 упражнение: Составить программу для вычисление величины S по формуле:

[ОДИНОЧЕСТВО В СЕТИ]

s1:=0;
s2:=0;
p:=1;
for i:=1 to 10 do
begin
s1:=s1+sin(b[i]);
s2:=s2+sqr(b[i]);
end;
for i:=1 to 15 do
p1:=p1*sin(z[i]);
s:=(s1+cos(s2)+1)/p1;

[Babur4iK]

он мне все пишет деление на ноль!!!!

[Babur4iK]

var i,p,k:integer;
s1 ,s, p1,s2:real;

b:array[1..10]of real;
z:array[1..15] of real;
begin
s1:=0;
s2:=0;
p:=1;

readln(b[1]);
readln(z[1]);

for i:=1 to 10 do
begin
s1:=s1+sin(b[i]);
s2:=s2+sqr(b[i]);
end;

for k:=1 to 15 do

p1:=p*sin(z[k]);

s:=(s1+cos(s2)+1)/p1;

writeln('S=',s);
end.

почему на самом деле пишет все ,деление на ноль???