Write a program in Pascal that determines how many times the number 10 occurs among the elements

Write a program in Pascal that determines how many times the number 10 occurs among the elements of the one-dimensional array A (12), consisting of integers and filled from the keyboard.

program zz1;
const n = 12; // set the number of elements in the array
var i, k: integer; // set variables of integer type
a: array [1..n] of integer; // describe an array with n elements
begin
for i: = 1 to n do // get n numbers from the keyboard and write them into an array
read (a [i]);
writeln; // go to a new line to display the response
for i: = 1 to n do
if a [i] = 10 then k: = k + 1; // check the condition and count the number of elements equal to 10
writeln (‘elements equal to 10 =’, k); // display the answer
end.