Вычислить сумму и количество элементов xi>0 массива X. X(30) Xi=(-1)i=(1+i)/корень кубический из i

program sum;var  x: array[1..30] of real;i, k: integer;s:real;begink:=0;s:=0;for i:=1 to 30 dobeginx[i]:=(1+i)/(Exp(Ln(i) / 3))if x[i]>0 thenbegins:=s+x[i];k:=k+1;end;end;writeln('summa=',s);writeln('kolvo elementov=', k);readkey;end.