Write a program for Pascal: find the product of 10 natural numbers.

var
Arr: array [1..10] of integer; // declare an array.
i, j: integer; // declare variables of integer type.
begin
j: = 1;
writeln (‘Enter 10 natural numbers:’); // display the string to the screen.
for i: = 1 to 10 do // start of the cycle from 1 to 10.
begin
read (Arr [i]); // read the numbers entered from the keyboard.
j: = j * Arr [i]; // count the product of the entered numbers.
end;
writeln (‘The product of 10 natural numbers is equal to:’, j); // display the answer to the screen.
end.