Найти среднее арифметическое всех целых чисел от a до b (значения a и b вводятся с клавиатуры, b>=a) — Pascal(Паскаль)

var
  a, b: Longint; //Задаем тип данных длинной версии integer
 
function SA(aa, bb: Longint): Longint; // Возвращаем среднее арифметическое
begin
  if aa <= bb then SA := aa + SA(aa + 1, bb) 
  else 
    SA := 0; // Обнуляем среднее арифметическое
end;
 
begin
  Readln(a, b);
  Writeln(SA(a, b) / (b - a + 1))
end.