Алгоритм :
1)Подсчитать сумму чисел.
2)Подсчитать количество чисел
3)Разделить сумму чисел на их количество
Вот если надо прога
var i,N:integer;
srzn,sum:real;
begin
sum:=0;
N:=0;
for i:= 0 to 10 do begin
sum:=sum+i;
N:=N+1;
srzn:=sum/N;
end;
write(srzn:0:5);
end.