Program priklad;

Uses math;

var b,sinus,cosinus,tangens,x,vysledok:double;

begin

writeln('zadajte cislo z rozsahu 0 az 1');
readln(x);

sinus:=Sin(x);
cosinus:=Cos(x);

tangens:=Tan(x);

b:=sinus+cosinus;

vysledok:=tangens/b;

writeln(vysledok:0:2);

end.