Составить программу для вычисления среднего роста учеников в классе. количество заранее не известно.

Var a,b,c,d:word;
begin
read(b); c:=0;
for a:=1 to b do begin
read(d);
c:=c+d;
end;
write(c/b);
end.