Помогите Написать программу, которая вводит с экрана N чисел, считает их среднее арифметическое и выводит его на экран

Вопрос школьника по предмету Информатика

Помогите Написать программу, которая вводит с экрана N чисел, считает их среднее арифметическое и выводит его на экран

Ответ учителя по предмету Информатика

Program;

var a,sum,k:integer;

      sr:real;

Begin

sum:=0;

k:=0;

while a<>0 do

begin

read(a);

sum:=sum+a;

k:=k+1;

end;

sr:=sum/k;

writeln(sr);

End.