In the integer array A7), count the number of elements greater than 6? (program in Pascal)

Let’s go through all the elements of the array:
for i: integer: = 1 to 7 do
Inside the loop, we will need to determine which numbers are greater than six:
if (A [i]> 6) then
When such numbers occur, we will add one to our number_of:
number_of: = number_of + 1;
When the cycle is over, we will show this amount:
writeln (‘The number of numbers greater than six equals’, number_of);
end.