lprint(`Uloha 305:`);
lprint(`Urcete vsechny koreny funkce`);
f := x -> exp(-x) - arctan(3.1415*x) +
8.134e-5*exp(0.001/(x^2-3.5786575436*x+3.2018));
lprint(`s chybou nejvyse`);
epsilon := 1e-10;
lprint(`Zduvodnete dosazenou presnost.`);