Прошу поддержки, язык Pascal.) Всем заблаговременно спасибо)

// PascalABC.NET 3.3, сборка 1541 от 29.09.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var x3:=Power(ReadReal('x='),3);
  var (eps,s,k):=(1e-6,0.0,1);
  repeat
    var p:=1/(x3*k*k);
    if plt;eps then break;
    s+=p; k+=1
  until false;
  Writeln(s)
end.

Пример
x= 2.6
0.0933512289982594

Задание 2 решить невероятно: не обозначено ни что необходимо найти, ни что выводить.

begin
  var (n,r):=(0,0.0);
  while true do begin
    n:=0;
    var s:=ReadSeqRealWhile('Вводите:',x-gt;begin n+=1; Result:=xgt;=0 end).Sum;
    if ngt;1 then begin if sgt;0 then r+=1/s end
    else
      if n=1 then break
    end;
  if rlt;gt;0 then Writeln('R=',1/r)
  else Writeln('Сопротивление цепи бесконечнo')
end.

Пример
Вводите: 5.2 2.7 -1
Вводите: 6 3.5 9.2 8 1.4 -2
Вводите: 10 -1
Вводите: 15 24 9 3 5 24 -1
Вводите: -1
R=3.64073957904102