Write a program that enters an array of 5 elements from the keyboard and finds the arithmetic mean of these numbers.

program zz1;
var i, k: integer; // set variables of integer type
m: array [1..5] of integer;
begin
for i: = 1 to 5 do // write five numbers into the array from the keyboard
read (m [i]);
for i: = 1 to 5 do // organize a loop in which we iterate over all the elements of the array
k: = m [i] + k; // add an element from the array to the sum
writeln (‘arithmetic mean of array elements =’, k / 5); // display the answer
end.