program baigiai;
uses crt;
var A:array[1..100] of integer;
n,i,t1,t2:integer;
begin
clrscr;
write('Nhap so luong phan tu n: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']= '); readln(A[i]);
end;
t1:=0; t2:=0;
i:=1;
while A[i]<>0 then
begin
t1:=t1+A[i];
i:=i+1;
end;
i:=n;
while A[i]<>0 do
begin
t2:=t2+A[i];
i:=i-1;
end;
write('Ket qua la: ',t1*t2);
readln;
end.