РЕБЯТ!!! На языке pascal нужно вычислить среднее арифметическое чисел ОТ 11 ДО 20 через repeat until. Бог в помощь ребят))

Предыдущий
вопрос Следующий
вопрос

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.