var
x, y, a, F, t: real;
x1, x2, x3: real;
begin
a := exp(1.98);
x1 := 25/57.29;
x2 := 6/3437.75;
x3 := 18/206264.99;
x := abs(ln(sin(x1 + x2 + x3)/ cos(x1 + x2 + x3)));writeln('x = ',x);
t := (a-x);writeln('t = ',t);
if t < 0 then y := 1/(a+x);
if (x >= 1) and (x < 9) and (t >= 0) then y := 16.5*x+9*(x*x)-1.25*(x*x*x);
if (x < 1) and (t >= 0) then y := 0;
if (x >= 9) and (t >= 0) then y := a-x;

writeln('y = ',y);
F := abs((y+a+x)/(a*x*y));
writeln('F = ',F);
end.