program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;

var
  x, e: Extended;
  m: Integer;
  maxCount: Integer;
  a, sum: Extended;
  i: Integer;

begin
  //вводим начальные данные
  Write('Enter x:');
  repeat
  Readln(x);
  until abs(x)<1;

  Write('Enter m:');
  repeat
  Readln(m);
  until m>0;

  Write('Enter e:');
  repeat
  Readln(e);
  until e>0;

  //считаем сумму ряда
  maxCount := 100;
  sum := 1;
  a := 1;
  for i:=1 to maxCount do
  begin
  a := a*(m+i-1)*x/i;
  sum := sum + a;
  if (abs(a)<e) then
    break;
  end;
  //пишем результат
  WriteLn('Result :' + floatToStr(sum));
  WriteLn('True value :' + floatToStr(Power(1-x, -m)));
  Readln;
end.