function pajuvsinus(x: real): real;
const PI = 3.141592653;
      PRESNOST = 5000;
var aktClen,
    vysl: real;
    i: integer;
begin
  x := x - 2*PI*trunc((x + PI) / (2*PI));
  aktClen := x;
  vysl := 0;
  for i := 2 to PRESNOST do begin
    vysl := vysl + aktClen;
    aktClen := aktClen*(-sqr(x)/((2*i - 1)*(2*i - 2)));
  end;
  pajuvsinus := vysl;
end;

var x: real;
begin
  read(x);
  writeln(pajuvsinus(x):3:7, ', ', sin(x):3:7);
end.