You are given a sequence of n integers. Find the arithmetic mean of this sequence.

program zz1;
const n = 13; // set the number of elements in the sequence
R: array [1..n] of integer = (26, -53, 0, -67, 12, -34, 0, 90, 14, -78, 0, -45, 66); // set a sequence of numbers
var i, k, m: integer; // set variables of integer type
begin
for i: = 1 to n do // organize a loop in which we iterate over all the numbers in the sequence
m: = m + R [i]; // add an element of the sequence to the sum
writeln (‘the arithmetic mean of the numbers in the sequence =’, m / n); // display the answer
end.