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

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