const
  Size = 10010;
  f: array[0..6] of Byte = (0, 1, 2, 1, 7, 5, 0);

var
  a, b, c, d, e: array[0..Size] of Byte;
  i, n: Word;

{$L PI.OBJ}
procedure CalcPi; external;

begin
  Val(ParamStr(1), n, i);
  if (i = 0) and (n <= Size) then begin
    CalcPi;
    Write('3.');
    for i := n-5 downto 1 do Write(a[i])
  end
end.