ПЛИЗЗЗ РЕШИТЕ ЗАДАЧУ ПО ПАСКАЛЬ
СМОТРИТЕ УСЛОВИЕ НИЖЕ

var    i, a, b, s: integer;begin    readln(a, b);    s := 0;        for i := a to b do         s := s + i;        writeln((s / (b - a + 1)):0:6);end.