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

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.