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.