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.

#include<iostream>
using namespace std;
void swap(int *p1, int *p2);
int main()
{
int p[10];
	int i;
	for (i=0;i<10;i++){
	cout << "Enter array's element #"<<i+1<<"\n";
	cin >> p[i];
	if(p[i]<0 || p[i]>2)
	{ cout << "Error\n";
		break;
		
	}
	}
for(i=0;i<10;i++)
{
	for (int j=0;j<9;j++)
	{
		if (p[j]>p[j+1])
			swap (&p[j], &p[j+1]);
	}
}
for (i=0;i<10;i++)
	cout << p[i]<<" ";
return 0;
}
void swap(int *p1, int *p2)
{
	int temp=*p1;
	*p1=*p2;
	*p2=temp;
}

puts MACRO src         ; print string to STDOUT
 IFB <src>	                                     
  display "Use macro: puts <string>"
  EXITM								
 ELSE
  push ax
  push dx
  lea dx,src 						
  mov ah,09h						
  int 21h							
  pop dx
  pop ax
 ENDIF 								
ENDM

gets MACRO dst         ; read string from STDIN
local _read, _done                

 IFB <dst>                          
  display "Use macro: gets <dst>"   
  EXITM								
 ELSE 
   push ax
   push bx
   lea bx, dst            
    _read:     
      getc
      cmp al, 13
      je _done        
      mov [bx], al
      inc bx
      jmp _read
    _done:
      putc 0Ah
   pop bx
   pop ax   
 ENDIF   
ENDM