Алгоритм накопления произведения в Паскале

Дана последовательность: \(\cos 0.1,\;\cos 0.2,\;\cos 0.3,\; \ldots ,\;\cos 10\). Вычислить значение: \(P = \left| {PO} \right|\), где \(PO\)- произведение отрицательных членов последовательности.

Решение.

Var
x, y, P, PO: real;
Begin
PO := 1;
x := 0.1;
while x<=10 do
begin
y := cos(x);
if y<0 then PO := PO*y;
x := x + 0.1;
end;
P := abs(PO);
writeln(‘P=’, P:6:2);
End.