program findPi;

uses crt;

var
   piValue : Double;
   i : LongInt;
begin
   piValue := 2;
   i := 2;
   clrscr;
   repeat
       piValue := piValue * (i / (i-1)) * (i / (i + 1));
       if i mod 3000 = 0 then
       begin
       gotoXY(1,1);
       write(piValue : 0 : 20);
       end;
       i := i + 2;
   until keypressed or (i > 2147483647);
   readln;
end.