Вычислить сумму и произведение - Pascal ABC (12950)

const
    EPS = 0.0001;
    XA = 3;
    XB = 5;
    DX = 0.2;
    A = 2.22;
    B = 3;
var
    x: Single;
    s, m, temp: Extended; //Double | Real
begin
    x := XA; s := 0; m := 1;
    while ((Abs(x - XB) < EPS) Or (x < XB)) do
    begin
        temp := Sin(x * Sqr(Sqr(x)));
        if (temp > EPS)
        then
        begin
            temp := Ln(temp) * A * B;
            s := s + temp;
            m := m * temp;
        end
        else
            WriteLn('Error with x=', x:0:2);
        x := x + DX;
    end;
    WriteLn('S=', s:0:2);
    WriteLn('M=', m:0:2);
end.