Вычислить среднее значение чисел. Числа вводятся с клавиатуры, их количество произвольно.

• var
  a, s: real;
  i, n,: integer;
• for i := 1 to n do
• s:=0;
• writeln\('Введите кол\-во чисел последовательности: '\);
• end;
• begin
• BEGIN
• writeln\('Введите число: '\);
• readln\(n\);
• writeln\('Среднее арифметическое чисел: ', s / n\);
• readln\(a\);
• END.
• s := s + a;