lprint(`Uloha 506:`);
lprint(`Vytvorte program, ktery pro libovolne  t  z intervalu  <a, b>`);
a := 0;  b := 4*Pi;
lprint(`vypocita pomoci nektere ze zde probiranych metod hodnotu`);
dano:=Int(sin(x)^1000, x=a..t);
lprint(`s absolutni chybou nejvyse`);
epsilon := 1e-8;
lprint(`Objasnete pouzity postup a zduvodnete dosazenou presnost.`);
lprint(`Funkci programu demonstrujte graficky nebo tabulkou (v zavislosti na t).`);