Составить программу на языке паскаль абс. нет.
Для нахождения произведения модулей отрицательных значений функции: у= sin2x-0.5
где х∈[0,10]
Δx=0,1
и суммы ее положительных значений.

var
x: real = 0;
p: real = 1;
s: real = 0;
y: real;

begin
while x <= 10 do
begin
y := sin(2 * x) - 0.5;
if y < 0 then
p := p * -y
else
s := s + y;
x := x + 0.1;
end;
writeln(p);
writeln(s);
end.