Паскаль / Паскаль / Program3

program O_O;
var S,x,eps:real;
    n:integer;
begin
     write('x='); readln (x);
     eps:=0.01;
     For  n:=1 to 6 do
          begin
                eps:=n*cos(n*x);
                S:=eps+S;
          end;
          writeln('S=', S);
end.