помогите пжст реш: Даны действит. чис а1 а2 аn n

v. i,n:in-r;
t,a,r,s:r-l;
beg.
wr.('Ввд. n=');
re-n(n);
r:=0;s:=0;
f. i:=1 to n d. b-n
wr.('Ввд. a[',i,']=');
re-n(a);
if a