Ответ:

program sred_rost;

var n,r,i,s:integer;

begin

writeln('Введите количество человек');

readln(n);

s:=0;

for i:=1 to n do

begin

writeln('введите рост');

readln(r);

s:=s+r;

end;

writeln('средний рост грурпы = ',s/n);