Паскаль abc. задайте массив из 10 элементов с датчика случайных чисел. найдите произведение элементов, имеющих нечетные индексы. выведите на экран исходный массив и полученное произведение.

var a: integer;

begin

  writeln('введите четырехзначное число');

  readln(a);

  if a div 1000= mod 1000) mod 100) mod 10) then writeln('верно') else writeln('не верно');

end.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            

"звенелки"                                                "будилки"

колокольчик                                              будильник

звонок(дверной)                                  настенные часы

колокол                                                                      музыка у соседей))

треугольник(музыкальный)                телефонный звонок

домофон                                                                          петух