Задача с массивом Опции

[Ekaterina]

Пожалуйста помогите решить задачу!
Вычислить сумму положительнх элементов до первого отрицательного и произведение отрицательных элементов до первого положительного элемента в массиве A(n), n<=20.Вывести массив, сумму и прозведение.

[Ekaterina]

program z2;                                                                   
label M1, M2;                                                                 
const                                                                         
t=20;                                                                         
var                                                                           
A:array [1..t] of integer;                                                    
N,i,s,p:integer;                                                              
begin                                                                         
writeln ('N=');                                                              
readln(N);                                                                    
writeln('vvod massiva A');                                                    
for i:=1 to N do                                                              
readln(A[i]);                                                                 
S:=0;                                                                         
P:=1;                                                                         
for i:=1 to N do                                                              
if A[i]>0 then S:=S+A[i]                                                      
else                                                                          
begin                                                                         
writeln('s=',s);                                                              
goto M1;                                                                      
end;                                                                          
M1: for i:=1 to N do                                                          
if A[i]<0 then P:=P*A[i]                                                      
else                                                                          
begin                                                                         
writeln('P=', P);                                                             
goto M2                                                                       
end;                                                                          
M2:end.

Программа не считает сумму и произведение(

М

Теги!! - Lapp