Измените программу чтобы выводилось произведение первых трех элементов.

for var i := n downto 1 do

write (a [i], ' ' );



Фотография не открывается , попробуй еще раз только для этого нужно вставить URL фотографии.