Вычислить сумму и количество элементов 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.