На вход в первой строке подается целое положительное число N, а в следующих N строках — набор из N вещественных чисел (по одному числу в строке). Вывести произведение всех чисел из исходного набора.
uses PT4Exam;
var
x, i: integer;
a, p: real;
begin
Task('ExamBegin15');
Read(x);
p := 1;
for i := 1 to x do
begin
read(a);
p := p * a;
end;
Write(p:4:2);
end.
