program Aproximace;
uses crt;
var A,B,POM,X,Y,OBD,PLOCHA: real;
begin
  readln(A); readln(B);
  PLOCHA:=0;
  if A>B then begin
    POM:=A; A:=B; B:=POM;
  end;
  if A<B then begin
    X:=A;
    while X<=(B-0.001) do begin
      Y:=Sin(5*(Cos(X+0.0005)));
      OBD:=Abs(Y*0.001);
      PLOCHA:=PLOCHA+OBD;
      X:=X+0.01;
    end;
  end;
  writeln('Plocha je ',PLOCHA:1:3,'jednotek ctverecnich.');
  readkey;
end.