10 numbers are entered from the keyboard to find the arithmetic mean of these numbers. Pascal program

program zz1;
var a, i, s: integer; // set variables of integer type
sr: real; // set a variable of non-integer type
begin
for i: = 1 to 10 do // organize a loop for 10 repetitions
begin
read (a); // enter the next number from the keyboard
s: = s + a; // find the sum of the entered numbers
end;

sr: = s / 10; // calculate the arithmetic mean by the formula
writeln (‘arithmetic mean’, 10, ‘entered numbers =’, sr: 5: 2); // display the answer in a column in the format of five characters for the whole number and two characters after the dot
end.