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

Без массивов.

Var s, n, i, sum:integer; sr:real; beginwrite ('Введите число n') ; Readln (n) ; writeln ('s = ') ; for i: = 1 to n dobegin s : = i * 11; sum: = sum + s; write (s:4) ; end; sr: = sum/n; writeln; writeln ('sr = ', sr) ; end.