const e=0.00001;
var x,a,s:real; n:integer;
begin
write('x=');readln(x);
writeln(' x    S(x)      y(x)');
 a:=x; s:=x; n:=1;
 while abs(a)>e do begin
 a:=-a*x*x/(2*n)/(2*n+1);
 s:=s+a;
 n:=n+1;
 end;
 writeln(x:3:1,' ',s:8:5,' ',sin(x):8:5);
end.

Пример работы программы:
x=0.5
 x    S(x)      y(x)
0.5  0.47943  0.47943