На вход подается набор вещественных чисел, содержащий одно или более положительных чисел и завершающийся отрицательным числом; каждое число располагается на новой строке. Вывести произведение всех положительных чисел из исходного набора.
uses PT4Exam;
var
a, sum: real;
begin
Task('ExamBegin17');
sum := 1;
ReadLn(a);
while a > 0 do
begin
sum := sum * a;
readln(a);
end;
WriteLn(sum:4:2);
end.
