Написать программу, которая вычисляет среднее арифметическое вводимой с клавиатуры последовательности дробных чисел. Количество чисел должно задаваться во время работы программы. (цикл для)(паскаль )

var  i, count : integer;  summ, temp : real;begin  summ := 0;  readln(count);  for i := 1 to count do  begin    readln(temp);    summ := summ + temp;  end;   writeln(summ / count);end.