Составить программу на языке паскаль абс. нет.
Для нахождения произведения модулей отрицательных значений функции: у= 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.