Прошу помощи, язык Pascal.) Всем заранее спасибо)

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


x= 2.6
0.0933512289982594



begin
  var (n,r):=(0,0.0);
  while true do begin
    n:=0;
    var s:=ReadSeqRealWhile('Вводите:',x->begin n+=1; Result:=x>=0 end).Sum;
    if n>1 then begin if s>0 then r+=1/s end
    else
      if n=1 then break
    end;
  if r<>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