Задан массив А [1..10]. Найти произведение случайных 5 чисел.

Var {-1-. Опишите требуемый массив}   i, S: integer;   Begin   {-2-.Введите правильно формулу автозаполнения элементов массива числами из требуемого диапазона по условию задачи}   For i:= to do a[i]:=   {-3-. Выведите элементы массива через пробел}   For i:= to do write();   {-4-. Вставьте команду перевода курсора в начало новой строки}   {-5-. Запишите формулу вычисления суммы ВСЕХ элементов массива}   For i:= to do S:=   {-6-. Запишите вывод суммы ВСЕХ элементов массива}   writeln('Symma=',…)   end.