Программа вычисления средего арифмитического

[TheDarkSunEmpire21]

Помогите пишу программу а всегда выходит в ответ 0.
Запишите программу вычисления среднего арифмитического и количества членов последовательности в зависимости от заданого значения n:
11 ,22,33,44,55,...2n
Напишите все по простому без массивов

[VIK_aka_TOR]

при n = 10, член последовательности будет 1010 или 110 ?

и представьте свой код выводящий неверный по условию задачи ответ.

[solivan]

var i, n :integer;
     sum : longint;

BEGIN
write('Введите n');
readln(n);
i:=1;
sum:=0;
while(i<=2*n) do
  begin
    sum:=sum + i*11;
    inc(i);
  end;
  Writeln('Количество членов последовательности:', i);
  Write('Среднее арифметическое:', sum/i);
END.