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.