1. Списки - особый вид форматирования абзацев. <span> </span>
Var mes, sum: real;
begin
mes:=0;
sum:=1000;
while sum<1100 do<span> begin
</span>sum:=sum+(sum*0.05);
mes:=mes+1;
<span> end;
</span>writeln (mes:2:0);
readln;
end.
<span>Программа работает корректно. Выводит 2</span>
На скрине всё видно, ну а вообще среднее значение - это сумма чисел делённая на их количество, тогда получается (1+4)/2=2,5