var T,N,i: longint;
    k,x,y,a,b,Spr,Str: Real;
begin
  repeat
     write('a<b; a,b=');
     readln(a,b); 
  until a<b;
  write('N='); readln(N);
    T:=0; Randomize;
    for i:=1 to N do
      begin
        x:=a+(b-a)*random;
        y:=Random/a;
        if y<=1/x then T:=T+1
      end;		
  K:=T/N;
  Spr:=(b-a)/a; Str:=K*Spr;
  writeln('Площадь трапеции {или хз что получится} =',Str:0:4,
         ' Точное значение пдощади =', ln(b/a):0:4); //эт я из геометр. помню
end.

Program qwer;

Var
	k,x,y: integer;
	n,i:longint;
Begin
	randomize;
	k:=0;
	n:=10000;
	for i:=1 to n do 
		begin
		x:=random(4)-2;
		y:=random(4)-2;
		if (x+y<=1) and (x-y<=1) and (-x+y<=1) and (-x-y<=1) then 
			k:=k+1;
		end;
	writeln(k/n*4 :2:2);
End.