Вот 1 задача
VAR a   : array [1..10] of real;
         i   : byte;
        p   : real;
BEGIN
  writeln ('Введите элементы массива a:');
  for i:=1 to 9 do readln (a[i]);                                               //Вводим массив
  write ('Массив a: ');
  for i:=1 to 9 do write (a[i],', ');                                           //Выводим массив
  p:=1;                                                                           //Обнуляем счетчик
  for i:=1 to 9 do p:=p*a[i];         //Находим произведение элементов массива
  for i:=1 to 9 do a[i]:=a[i]/p;          //Находим элементы полученного массива
  writeln;
  write ('Полученный массив a: ');
  for i:=1 to 9 do write (a[i]:9:7,', ')    //Выводим полученный массив
END.