ЦИКЛИЧЕСКИЕ ВЫЧИСЛИТЕЛЬНЫЕ ПРОЦЕССЫ

[Urz-3]

Напишите программу, которая вычисляет, сколько сомножителей надо взять в произведении чтобы равенство выполнялось с точностью (1/sqr(10*10)*10)?

[Urz-3]

Народ подскажите что делать.

[Urz-3]

написал что то но вот только не работает. а где ошибся не могу найти((

program C_16;
uses crt;
var
    k:real;
   s ,p:real;
begin   clrscr;
s:=1;
k:=2;

     repeat
      p:=(1-(1/(sqr(k))));
      k:=k+1;
      s:=s*p;

      writeln(s:9:2)
     ; until  s<=1/2;
            readkey;
end.