Вводите по очереди данные в росте N учащихся класса.Определить средний рост учащихся в классе

Var i,sum,m,pr:real;
begin 
i:=1; m:=-1; 
writeln(Вводите рост учеников, когда закончите введите 0.);
while (i<>0) do begin               
          readln(i);               
              sum:=sum+i;               
m:=m+1;               
   end;     
   pr:=sum/m;       
writeln(Средний рост:,pr);       
end.                

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.