На вход в первой строке подается целое положительное число 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.