Write a program that calculates the product of natural numbers from 5 to 10.

Second program:
var x, i: integer;
A: array [1..20] of integer;
begin
randomize;
writeln (‘Random array:’);
for i: = 1 to 20 do A [i]: = random (11); for i: = 1 to 20 do write (A [i]: 5);
writeln;
writeln (‘Displaying natural numbers in a given range:’);
for i: = 5 to 10 do write (A [i]: 5);
writeln;
x: = 1;
writeln (‘Product of natural numbers from the range:’);
for i: = 5 to 10 do x: = A [i] * x;
write (x: 5);
end.