помогите пжст реш: Даны действит. чис а1 а2 аn n<=30 пол-ть (1+r)/(1+s), где r-сум членов посл-ти <=1 S- сумма членов>1

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<=1 th. r:=r+a el. s:=s+a;
e-d;
t:=(1+r)/(1+s);
wr.('Пол-сь ',t);
en.