![Прикрепленное изображение](http://forum.pascal.net.ru/uploads/post-11763-1209760600_thumb.jpg)
Вот поглядите, я её попытался решить но она работает неправильно.
program vail;
var s,u,i,n,n1:integer;
begin
writeln('vvedite n1');
while n>1 do n1
begin
writeln('vvedite i');
readln(i);
u:=(ln(i+2)*ln(10))/(i*i*i);
s:=s+u;
end;
writeln(s);
writeln(n);
end.