Для проверки физического развития проверяют рост школьников.Составте программу,запаршивающую рост очередного школьника т вычислявшую после медосмотра средний рост прошедших осмотор.Количество школьников заранее не известно.

vari: integer;r, s, sr: real;beginwhile i>=0 dobegini:=i+1;write('Рост ', i, '-го ученика: ');readln(r);s:=s+r;sr:=s/i;writeln(i, ' учеников. Средний рост: ', sr);end;end.