№1 Найдите среднее арифметическое всех целых чисел от a до b( значения a и b вводятся с клавиатуры)

Сумма членов арифметической прогрессии , деленная на количество этих членов. Готовая формула и никаких циклов.

спасибо:)

Var x, a, i, b:integer;BeginX:=0;Readln(a,b);For i:= a to b do x:=x+i;Write(x/b);End.