Вычислить сумму и количество элементов 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;
begin
k:=0;
s:=0;
for i:=1 to 30 do
begin
x[i]:=(1+i)/(Exp(Ln(i) / 3))
if x[i]>0 
then
begin
s:=s+x[i];
k:=k+1;
end;
end;
writeln(summa=,s);
writeln(kolvo elementov=, k);
readkey;
end.