const
    x0 = 0;
    xn = 3;
    n = 100;

var
    x, dx, s: real;

begin
    x := x0;
    dx := (xn - x0) / n;
    s := 0;
    
    repeat
        s := s + x * x + sin(x);
        x := x + dx;
    until x >= xn;
    
    writeln('S = ', s * dx);
end.