Find the arithmetic mean of three random integers belonging to the interval {0; 10).

program zz1;

var a, b, c: integer; // set variables of integer type

i: real; // set a variable of non-integer type

begin

a: = random (10); // get the first random number

b: = random (10); // get the first random number

c: = random (10); // get the first random number

i: = (a + b + c) / 3; // calculate the arithmetic mean of the resulting three random numbers

write (‘the arithmetic mean of three random integers =’, I: 6: 2); // display the answer in the format six characters for the whole number and two characters after the dot

end.