Ввести с клавиатуры 10 произвольных чисел, вычислить среднее арифметическое (в pascal)

PascalABC.NET. Версия 3.5.1, сборка 2261 (4.11.2019)

program abc;

const n=10;

var i:integer;

sr,sum,ch:real;

begin

 sum:=0;

 for i:=1 to n do

  begin

   readln(ch); // Ввод числа с клавиатуры

   sum:=sum+ch; // Вычисляем сумму всех чисел

  end;

  sr:=sum/n; // Вычисляем среднее арифметическое чисел

  writeln('Среднее арифметическое значение чисел: ', sr);

end.