An array of 10 elements is given. Find the number of elements greater than 3 but less than 10.

program zz1;
var mas: array [1..10] of integer;
i, p, max: integer;
begin
for i: = 1 to 10 do // get the original array at random from -5 to 15
mas [i]: = random (21) -5;
for i: = 1 to 10 do
write (mas [i], ”); // display the resulting array on the screen
writeln; // move to another line for output
for i: = 1 to 10 do
if (mas [i]> 3) and (mas [i] <10) then p: = p + 1; // check if the number from the array is greater than three and less than ten, then count it

write (‘the number of numbers is more than three and less than ten =’, p) // print the answer
end.