Uses Crt;

var x,sum,n:integer;

sr:real;

Begin

Clrscr;

sum:=0; {сумма элементов}

x:=11; {первый элемент}

n:=1;  {количество элементов от 11 до 20}

Repeat

 sum:=sum+x;

 sr:=sum/n;

 inc(n);

 inc(x);

Until x>20;

Write('Среднее арифметическое чисел от 11 до 20 = ', sr:2:2);

readln;

end.

var a,sum:integer;

sr:real;

Begin

sum:=0;

a:=10;

Repeat

 a:=a+1;

 sum:=sum+a;

Until a>=20;

sr:=sum/(20-11+1);

Writeln('Среднее арифметическое чисел от 11 до 20 = ', sr:5:2);

readln;

end.