Написать программу для Паскаль: найти произведение 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.