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