Ответ:

Program sped_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);

End.

Ошибки отмечены так