Написать программу для Паскаль: найти произведение 10 натуральных чисел

var    Arr :array [1..10] of integer; // объявляем массив.   i, j : integer;                       // объявляем переменные целочисленного типа. begin    j := 1;   writeln(\'Введите 10 натуральных чисел:\'); // вывод строки на экран.       for i := 1 to 10 do                                 // начало цикла от 1 до 10.         begin            read (Arr[i]);                                  // считываем числа введенные с клавиатуры.            j := j * Arr[i];                                // считаем произведение введенных чисел.          end;   writeln (\' Произведение 10 натуральных чисел равно: \', j); // вывод ответа на экран. end.