Write a program that calculates the arithmetic mean of a sequence of fractional numbers entered from the keyboard.

Write a program that calculates the arithmetic mean of a sequence of fractional numbers entered from the keyboard. The number of numbers must be set while the program is running.

Var n, i: integer;
sr: real;
a: array [1..10000] of real;
begin
// request the required characteristics
Write (‘Enter the number of numbers:’); Readln (n);
Writeln (‘Enter numbers’);
For i: = 1 to n do readln (a [i]);
// calculate the arithmetic mean
sr: = 0;
For i: = 1 to n do sr: = sr + a [i];
sr: = sr / n;
//output
Writeln (‘The arithmetic mean of the entered numbers is equal to’, sr: 4: 3);
end.