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

var i,s,k:integer;begini:=11;s:=0;k:=0;repeats:=s+i;i:=i+1;k:=k+1;until i>20;write ('Cреднее арифметическое чисел ОТ 11 ДО 20 равно: ', s/k)end.