На вход подается набор вещественных чисел, содержащий одно или более положительных чисел и завершающийся отрицательным числом; каждое число располагается на новой строке. Вывести произведение всех положительных чисел из исходного набора.
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.