program Task1;
uses Math;
var
  x, y: Real;
begin
  // якщо користувач не вводить нічого — x = 1
  if not Eof then
    Readln(x)
  else
    x := 1;
  
  y := (Sin(4 * x * x) / Tan(x)) / Cos(3 * x);
  Writeln('x = ', x:0:2);
  Writeln('y = ', y:0:5);
end.