program buta_gep;
uses crt;
var
  n,i : integer;
  x   : real;
begin
  ClrScr; WriteLn(' B¡zhatunk-e a g‚pben ( vagy magunkban ) ? ':60); WriteLn;
  { kezd“‚rt‚kek megad sa }
  n:=3; x:=1/n;
  { az £j x sz m¡t sa ‚s ki¡rat sa 20-szor }
  for i:=1 to 20 do
    begin
      x:=(n+1)*x-1;
      { a ki¡r s 10 tizedesjegy pontoss g£ legyen }
      WriteLn('Az x ':30,i:2,'. ‚rt‚ke : ',x:3:10);
    end;
  repeat until KeyPressed;
end.