Напишите программу в паскале вычисление среднего арифметического значения последовательности дробных чисел. количество чисел задается во время работы программы.

Var N,i : Integer;
a,s : Real;
Begin
  Write('Количество чисел: '); Readln(N);
  s:=0;
  For i:=1 to N do
  Begin
   Write('Введите число №',i,' : ');Readln(a);
   s:=s+a;
  end;
  Writeln('Ср.арифм. = ',s/N:8:4);
end.